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IDENTIFICATION 


PRODUCT CODE: AC-T112A-MC 

PRODUCT NAME: CZRNEAO RM80 FCTNL PT2 
PRODUCT DATE: APRIL 1, 1982 
MAINTAINER: CX DIAGNOSTIC GROUP 
AUTHOR: MIKE LEAVITT 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE __ CONSTRUED AS COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR 
18 pall OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


COPYRIGHT (C) 1982 DIGITAL EQUIPMENT CORPORATION 
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1 

é 1.0 INTRODUCTION 

4 1.1 ABSTRACT 

5 THE RM8O SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM WHICH 

USES FUNCTIONAL MEANS TO VERIFY THE OPERABILITY OF THE RM80 DISK 

B SUBSYSTEM. IN PARTICULAR, THE PROGRAM SERVES THE FOLLOWING PURPOSES: 
10 TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE 
11 DISK DRIVE, INCLUDING MECHANICAL POSITIONING AND DATA TRANSFER 
12 OPERATIONS; 
14 TO iMPLICITLY ESTABLISH CONFIDENCE IN THE DRIVE/ADAPTER 
13 ELECTRICAL INTERFACE; 
17 TO VERIFY THE FUNCTIONALITY OF THE RM80 SUBSYSTEM, INCLUDING THE 
18 MASSBUS CONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE. 
20 THE TEST IS COMPRISED OF 4 PARTS, WHICH WOULD NORMALLY BE RUN IN 
21 SEQUENCE . STARTING WITH PART 1. BRIEFLY, PART 1 TESTS HOUSEKEEPING 
22 MECHANICAL POSITIONING OPERATIONS; PART 2 TESTS WRITE, READ AND 
23 ORITE CHECK OPERATIONS USING HEADER AND DATA; PART 3 TESTS WRITE, 
24 READ AND WRITE CHECK OPERATIONS USING DATA; PART 4 TESTS MECHANICAL 
33 POSITIONING RO PERATIONS AND VARIOUS TIMING PARAMETERS OF THE . RM80 DISK 
37 
28 
29 
30 1.2 UNIT UNDER TEST 
32 THE UNIT UNDER TEST (UUT) IS THE RM80 DISK SUBSYSTEM WHICH 
33 CONSISTS OF THE RH70 MASSBUS CONTROLLER , THE RM80 MASSBUS ADAPTER , 
34 AND THE STORAGE MODULE DISK DRIVE. NOTE THAT A DISK IS REQUIRED FOR 
35 TESTING AND IS CONSIDERED AN :NTEGRAL OF THE STORAGE MODULE DISK DRIVE. 
37 
39 2.0 OPERATING REQUIREMENTS 
41 2.1 HARDWARE REQUIREMENTS 
43 THE FOLLOWING MINIMUM HARDWARE CONFIGURATION, ASSUMED TO BE 
44 OPERATIONAL 1S REQUIRED TO LOAD AND EXECUTE THE RM80 SUBSYSTEM 
45 FUNCTIONAL TEST: 
47 PDP=11 PROCESSCR 
48 20k MEMORY 
49 KWil=-L OR KW11-P CLOCK 

50 PROGRAM LOADING DEVICE 

| TERMINAL 

52 RH70 CONTROLLER 

33 1 TO 8 RM8O0 bask DRIVES 

55 

56 


57 2.2 MEDIA REQUIREMENTS 
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58 

59 EACH UNIT BEING reste MUST BE LOA ow py Be A_DISK BEFORE TESTING 
60 BEGINS ON THAT UNIT. THE DRIVE MUST HAVE A FORMATTED DISK AND CONTAIN 
61 A READABLE COPY OF THE MFG(DEC144), USR(DEC144) AND SSF BAD SECTOR 
o¢ FILES. 

64 NOTE: TO ENSURE THAT ALL CUSTOMER DATA IS PRESERVED ON THE DISK, ALL 
a DATA TRANSFERS WILL BE PERFORMED ON THE FE CYLINDERS ONLY. 

s 

4 2.3 PREREQUISITE DIAGNOSTIC PROGRAMS 

71 

ie RM80 DISKLESS TEST, PART 1 & 2 

ie RM80 FUNCTIONAL TEST, PART 1 

8 

4 3.0 OPERATING PROCEDURE 

st 3.1 LOADING 

8 THE PROGRAM MAY BE LOADED BY EITHER OF THE FOLLOWING MEDIA: 

84 PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE. 

H =XXDP MEDIA, USING THE APPROPRIATE LOADING DEVICE. 

87 

88 

34 3.2 SWITCH OPT 3 

91 ig FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE THE UTILITY 
4 OF THE PROGRAM. 

94 SwW15 HALT ON ERROR 

95 SW14 LOOP ON TEST (CURRENTLY BEING EXECUTED) 

96 SwW13 INHIBIT ERRCR TYPEOUTS 

97 SwWi2 UNUSED 

98 Swi1 ag 4 TEST ITERATIONS 

99 SW10 BELL ON ERROR 

100 SWO9 LOOP ON ERROR 
104 SwO8 LOG? ON TEST IN SW07-00 
103 THE LOW ORDER 8 SWITCHES (SWO7-SWO0), ARE USED IN CONJUNCTION WITH 
ee = BK, SPECIFY THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL 
106 
107 
108 
1%) 3.3 STARTING - 
111 THE omy MAY BE STARTED AT LOCATION 200 OR 204. STARTING AT 
112 00 WILL BE THE NORMAL ail a G ADDRESS. STARTING AT 264 WILL ENABLE 
113 THE RH/RM BASE ADDRESS TO BE CHANGED. IF RUNNING IN A STANDALONE 
114 ENVIRONMENT; THE PROGRAM USES CONSOLE DIALOGUE TO ALLOW THE OPERATOR 
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TO CONTROL TEST CONDITIONS. 


3.4 HALTING 
THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL C FROM THE CONSOLE. 
NOTE: ie THE PROGRAM IS HALTED BY ANY OTHER MEANS, BAD HEADER 
INFORMATION MAY BE LEFT ON THE DISK. THIS OF COURSE, DEPENDS 
CH TEST WAS BEING PERFORMED AT THE TIME THE PROGRAM 


ON WH 
WAS HALTED. ALSO, THIS ONLY APPLIES TO A NORMAL (ERROR FREE) 
OPERATION OF THE PROGRAM. ; 


RESTARTING 
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200 OR 204. (SEE SECTION 3.3) 


OPERATOR INTERFACE 
PROGRAM ID 
THE PROGRAM TYPES ITS TITLE AND MAINDEC NU NUMBER T THE FIRST TIME IT 


MES _ IS_ TYPED, 
THE PROGRAM IS 


WWWWYI Ww Mrorororrr ad ad ad ed 


HALTED E PR 
OCCUR IF THE PROGRAM IS RESTARTED. 


4.2 CONSOLE DIALOGUE 


WHEN THE PROGRAM IS RUNNING IN STAND ALONE MODE, IT ENTERS A 
CONSOLE DIALOGUE SEQNENCE AFTER TYPING THE PROGRAM I.D. AND WARNING 
MESSAGE.(SEE SECTION 4.1) 


THE FIRST QUESTION TYPED 4d att .. TYPE HELP TEXT (L) N 2°. 
THE OPERATOR RESPONDS WITH A ‘'Y’’, THE he an WILL TYPE A BRIEF 
HELP MESSAGE WHICH WILL LIST SuITCH OPTIONS, ETC. ANY OTHER RESPONSE 
Loy THE QUESTION IS CONSIDERED A ‘N’* AND NO HELP teXT. IS TYPED. THIS 
QUESTION IS_ ONLY ASKED ON THE INITIAL PROGRAM START AND NOT ON 
SUBSEQUENT START-UP'S. 


ON THE PROGRAM INITIAL START AND WHEN RESTARTING AT LOCATION 204, 
THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING 
DIALOGUE. 

EXAMPLE 1 


RMCS1=176700 <CR> 3NO CHANGE IN ADDRESS 
RMVEC=000254 <CR> NO CHANGE IN ADDRESS 


EXAMPLE 2 


OAMMMIMUNMNIUIS BEE ER EE Es 
DWOONAUVSWA OC OONAULSWN 
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RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200 
RMVEC=000254 260<CR> CHANGE VECTOR ADDRESS TO 260 


ON THE INITIAL START, THE NEXT QUESTION TYPED IS, ‘TYPE “Al TO 
TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S) AND T NATE INPUT WITH 

CARRIAGE RETURN’. THEN, *DRIVE(S):* IS YPED AND. WAITS. FOR THE 
OPERATOR 10. TY O TEST ALL POSSIBLE DRIVES OR TYPE ANY 
STRING OF DRIVE HUMBER CSS 10 8 TESTED AND TERMINATE THE INPUT WITH A 
CARRIAGE RETURN’. NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN 
ENTERING THE DRIVE NUMBERS AS A STRING. THE PROGRAM ENTERS THE COMMA 
SEPARTOR AUTOMATICALLY AFTER TYPING EACH NUMBER. ON ALL SUBSEQUENT 
STARTS, ONLY THE ‘DRIVE(S):* PROMPT IS TYPED. 


THE DIAGNOSTIC THEN INITIALIZES AND REPORTS THE STATUS OF THE 
DRIVES WHICH WHERE PREVIOUSLY SPECIFIED FOR TESTING. THE FOLLOWING 
1S AN EXAMPLE PRINTOUT: 


"UNIT STATUS 


NOT PRESENT 
NOT PRESENT* 


NOULSWN Oo 
zz2z0- 
S552 

= 
~- 
tae 
z 
m 
Fs 
= 
oo 
° 


THE ABOVE UNIT STATUS SHOWS THAT DRIVE 0 WILL BE TESTED, WHILE DRIVES 


1 = 7 WILL NOT BE TESTED. 


THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASED ON THE 
STATUS OF THE DRIVE: 


"DRIVE(S) TO BE TESTED, 0° 


IF NO DRIVES a AVAILABLE FOR TESTING, THE FOLLOWING MESSAGE WILL BE 


TYPED TO THE OPERAT 
"DRIVE(S) TO BE TESTED, NONE" 


THE PROGRAM WILL THEN, EITHER START TESTING THE DRIVES AVAILABLE FOR 
TESTING OR RETURN TO THE BEGINNING OF THE PROGRAM AND WAIT. 


ONCE THE DRIVES START vests. THE FOLLOWING MESSAGE WILL OCCUR 
AS EACH DRIVE BEGINS TO BE TESTED: 


"DRIVE 0° 
AFTER ALL THE DRIVES ARE Ste te LY as ie’ THE END OF PASS 
MESSAGE WILL BE TYPED (SEE SECTION 4 THE PROGRAM WILL START 


TESTING ALL THE DRIVES AGAIN. THIS Witt CONTINUE UNTIL THE PROGRAM 
IS HALTED BY THE OPERATOR. 


NOTE: pod F RESPONS LOCATED WITHIN THE BRACKETS () INDICATES THE TYPE 
eaeunse REQUIRED BY THE USER, D=DECIMAL, O=OCTAL AND 


Ld 


SEQ 0006 
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1 
33 4.3 PROGRESS REPORTS 
See AN END OF PASS REPORT OCCURS EACH TIME THE PROGRAM IS EXECUTED 
SH FOR ALL DEVICES IN THE TEST QUE. THE END OF PASS REPORT IS AS FOLLOWS. 
+4 ‘END OF PASS 1° 
239 THE FOLLOWING MESCAGE WILL ALSO OCCUR IF THERE WERE ERRORS SINCE 
sty THE LAST END OF PASS REPORT. 
242 "TOTAL ERRORS SINCE LAST REPORT 0° 


244 

$i? 4.4 PERFORMANCE REPORT 

247 NO PERFORMANCE REPORTS ARE GIVEN DURING THE EXECUTION OF THE 
248 PROGRAM. 


50 
251 
$26 4.5 PROGRAM HALTS 
254 THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF THE PROGRAM. 
$32 PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER. 

257 

258 

+44 4.6 ERROR REPORTS 

261 THE FIRST LINE OF THE ERROR REPORT CONTAINS THE NUMBER OF _ THE 
262 UNIT (DRIVE) BEING TESTED, THE DRIVE TYPE, THE TEST NUMBER, THE ERROR 
2635 NUMBER AND THE VALUE OF THE PROGRAM COUNT TER WHERE THE ERROR WAS CALLED. 
264 THIS LINE IS FOLLOWED BY THE ERROR MESSAGE: ONE OR MORE LINES OF TEXT 
265 WHICH GIVE A BRIEF, YET COMPREHENSIVE DESCRIPTION OF THE ERROR. THE 
266 ERROR MESSAGE IS * NORMAL LY FOLLOWED BY ONE OR MORE PAIRS OF LINES 
267 CONTAINING DATA HEADERS AND DATA PERTININENT TO THE ERROR, INCLUDING 
3 EXPECTED AND ACTUAL TEST RESULTS. 

sn THE FOLLOWING PRINTOUT SHOWS A TYPICAL ERROR MESSAGE FOR THIS PROGRAM: 
272 DRVA 0 = RM80, TEST# 14, ERR# 326, PC=016654 

273 MASSBUS DATA Bus PARITY ERROR DPE" (RMCS2, BIT 8) DETECTED 

274 DURING WRI COMMAND 

275 EXPECTD Vv 

276 040300 660700 

277 RMCS1 RMCS RMDS RMER1 RMER2 RMAS 

278 144252 040700 010700 000000 000000 000000 

279 RMWC RMBA MDA RMOF RMDC RMEC1 RMEC2 

280 ives 104604 000002 4 2000 000000 004066 000000 


RMMR wns RMDT s 
000010 011777 024026 177777 
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305 
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4.7 EXECUTION TIME 
PASS 1 OF THE PROGRAM TAKES ABOUT 20 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 55 SECONDS. 
5.0 ENVIRONMENTAL SUPPORT 
5.1 PROCESSOR COMPATIBILITY 
E RM80 SUBSYSTEM FUNCTIONAL TEST IS EXECUTABLE ON A_ PDP=11/70 
PROCESSOR. PROVIDING PREVIOUSLY MENTIONED HARDWARE REQUIRE 


MENTS ARE 
MET, AND PROVIDING THAT DATA THROUGHPUT ON THE SYSTEM IS SUFFICIENT TO 
SUSTAIN DATA TRANSFER OPERATIONS. 


5.2 DUAL PORT CONFIGURATIONS 
THE RM8O ro, I gad th ae TEST DOES NOT SPECIFICALLY TEST 
IC _IN RMSO_ A BUT IS EXECUTABLE ON RM80 


DUAL PORT L R E 
SUBSYSTEMS HAVING THE DUAL PORT OPTION PROVIDING THE DUAL PORT SWITCH 
IS SET TO THE APPROPRIATE PORT (A OR B). 


5.3 MEMORY PARITY HARDWARE 


MEMORY PARITY HARDWARE IS NOT USED DURING THE EXECUTION OF THE 
RM80 SUSBYSTEM FUNCTIONAL TEST. 


5.4 MEMORY MANAGEMENT HARDWARE 


MEMORY MANAGEMENT HARDWARE IS NOT USED DURING THE RM80 SUSBYSTEM 
FUNCTIONAL TEST. 


5.5 ACT11, APT11 COMPATIBILITY 


THE RM80 SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH ACT11 AND 
APT11 IN BOTH DUMP AND AUTOMATIC MODES. FURTHER, THE PROGRAM WILL 
a A auick PASS DURING THE FIRST PASS IN SUPPORT OF QUICK VERIFY 


5.6 XXDP COMPATIBILITY 


THE RM80 SUSBYSTEM FUNCTIONAL TEST IS COMPATISLE WITH XXDP_ IN 
DUMP AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE 
THE RM80 IS THE XXDP LOADING DEVICE. 


SEQ 


= 


ao 
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a4 5.7 OPERATING SYSTEM COMPATIBILITY 

34 THE PROGRAM IS NOT COMPATIBLE WITH ANY SOFTWARE OPERATING SYSTEM. 
347 

348 

349 6.9 TEST DESCRIPTION 

350 

351 

352 

$27 TEST 1 CONTROLLER ACCESS TEST 

$22 PURPOSE : 

357 TO VERIFY THAT THE UNIBUS ADDRESS OF THE RM80 SUBSYSTEM IS 
328 CORRECT, AS DEFINED AT LOCATION $BASE. 

se PROCEDURE : 

362 THE TEST wars : ACCESS ALL MASSBUS CONTROLLER REGISTERS 
363 USING THE S$BASE DRESS. REGISTER CONTENTS ARE IGNORED DURING 
364 THE TEST, AND THE E81 FAILS IF A BUS TIMEOUT OCCURS FOR ANY 
see REGISTER TRANSFER. 

367 IF THE TEST FAILS AND THE neas IS RUNNING IN A_ STAND 
368 ALONE ENVIRONMENT, I.E., LOCATION 42 IS 0, THE PROGRAM WILL JUMP 
369 TO LOCATION 204 WHICH ALLOWS THE OOPERAT OR TO CHANGE THE S$BASE 
370 ADDRESS VIA CONSOLE DIALOGUE. OTHERWISE, THE PROGRAM ESCAPES TO 
Al THE END OF PASS HANDLER. 

373 

374 

375 

i 

38 TEST 2 = 30 WRITE/READ HEADER AND DATA (FORMAT) TESTS 

Ey] PURPOSE : 

382 TO TEST WRITE HEADER AND DATA AND READ HEADER AND DATA 
383 FUNCTIONALITY OF THE RM80 SUBSYSTEM USING A SET OF VARIABLES 
384 WHICH INCLUDE WORD COUNT, HEAD MOTION, HEAD SWITCHING AND ERROR 
385 CONDITIONS. 

386 

$56 PROCEDURE : 

389 ALTHOUGH EACH TEST EER 355 A DIFFERENT VARIABLE, THE 
390 GENERAL PROCEDURE OF EACH TEST Mon THE SAME. THE DRIVE IS 
391 pata Lee AND ag tg ED IF ‘PIP’ OR ‘‘SKI"* ARE ACTIVE SO THAT 
392 THERE ARE NO ERRORS WHEN A TEST itigt FOLLOWING THAT, THE TEST 
395 PERFORMS ANY EXPLICIT SEEKS pr ye FOR THE CONDITIONS OF THE 
394 TEST. REGISTERS ARE PRESET AND THE WRITE H eect AND _DATA_COMMAND 
395 IS EXECUTED. WHEN THE WRITE COMMAND IS COMPLETE, THE TEST STORES 
396 ALL SUBSYSTEM ADM AND CHECKS FOR PRIMARY ERRORS WHICH PRECLUDE 
397 OTHER STATUS CHECKS. IF THERE ARE NO PRIMARY ERRORS, THE TEST 
398 VERIFIES THE RESULTS OF THE WRITE COMMAND AND THEN CHECKS FOR 


399 SECONDARY ERRORS. LOOP ADDRESSES ARE MODIFIED FOLLOWING THE 


ao 
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CawOnrEWV—osS 


TEST 


TEST 


TEST 


TEST 


successes COMPLETION OF THE WRITE COMMAND IN eB TO SHORTEN 
EXECUTION TIMES AND ENHANCE SCOPING LOOPS, THEN PR 
EXECUTES THE READ HEADER AND DATA PORTION OF THE TEST. VERIFYING 
THE SAME TYPE OF ERRORS AS IN THE WRITE COMMAND. 


NOTE: THE SECTOR USED gear A_TEST MAY_ DIFFER FROM THE PROGRAM 
LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR, IF 
THE ONE SELECTED IS LISTED IN THE BAD BLOCK TABLE. 


2 FORMAT ZEROS TEST 


THE TEST SEEKS TO CYLINDER ors THEN WRITES HEADER AND DATA 
ON SECTOR 1 IN 18 BIT srg f THE HEADER AND DATA FIELDS ARE ALL 
ZEROS, CAUSING THE DEVICE TO USE NORMAL WRITE GATE. THE HEADER 
AND_ DATA E READ AND COMPARED WITH THE WRITE BUFFER. THE 
INITIAL SEEK POSITIONS THE HEAD SUCH THAT THERE IS NO IMPLIED 
SEEK. THE TEST IS REPEATED FOR 16 BIT FORMAT. 


3 ZERO FILL TEST TEST 


THE TEST EXECUTES A _ SEEK TO CYLINDER 559. TO INSURE THAT 
THERE IS NO HEAD MOTION DURING DATA_TRANSF oe THIS IS FOLLOWED 
BY A WRITE HEADER AND DATA COMMAND WITH THE WORD COUNT EQUAL TO 
THE SIZE OF THE HEADER WHICH CAUSES THE RH70 TO ZERO FILL THE 
DATA FIELD. THE READ HEADER AND DATA COMMAND THAT FOLLOWS READS 
A FULL SECTOR AND VERIFIES THAT DATA WAS ZERO FILLED. 


4 FORMAT CHECK ZEROS TEST 


THEN 


THE TEST WRITES HEADER AND AN ALL ZEROS DATA At 
ES THERE 


PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFI 
ARE NO ERRORS. 


5 FORMAT CHECK ZEROS W/ WCE ERROR TEST 


THE Wer WRITES HEADER AND AN Mt ZEROS DATA FIELD. AFTER 
COMPLEMENTING THE LAST WORD OF THE WRITE BUFFER, THE TEST 
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES THAT 


SEQ 0010 


— 


7% 
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rt 4 THE CORRECT WRITE CHECK ERROR IS DETECTED. 

459 

460 

461 

is 

122 TEST 6 FORMAT ONES TEST 

465 THE TEST WRITES HEADER AND AN ALL ONES DATA FIELD, THEN 
466 READS Ye 3 HEADER AND DATA, VERIFYING THE READ BUFFER WITH THE 
467 WRITE BUFFER. THE ALL ONES FIELD IS A CONSTANT FREQUENCY, AND 
re THE DRIVE SHOULD USE NORMAL WRITE GATE. 

470 

471 

472 

473 

ris TEST 7 FORMAT CHECK ONES TEST 

476 THE TEST FORMATS AN ALL ONES DATA FIELD, THE PERFORMS A 
477 WRITE CHECK HEADER AND DATA COMMAND, VERIFYING THAT THERE ARE NO 
478 ERRORS. 

479 

480 

481 

i 

ry TEST 10 FORMAT CHECK ONES W/ WCE ERROR TEST 

486 THE TEST FORMATS AN ALL ONES DATA FIELD, THEN COMPLEMENTS 
487 THE LAST WORD OF THE WRITE BUFFER. A WRITE CHECK HEADER AND DATA 
488 COMMAND IS EXECUTED, AND THE TEST VERIFIES THAT THE CORRECT WRITE 
489 CHECK ERROR IS DETECTED. 

490 

491 

492 

493 

494 

rt} TEST 11 FORMAT MULTIPLE SECTORS TEST 

497 THE TEST seer “ CYLINDER bay TO_INSURE THERE a NO HEAD 
498 MOTION DURING DAT ANSFER. THE WRITE HEADER AND DATA COMMAND 
499 FOLLOWS, WITH THE WORD COUNT EQUAL TO MULTIPLE SECTORS. THE 
500 SAME SECTORS ARE VERIFIED WITH A_ WRITE CHECK HEADER AND DATA 
501 COMMAND. THE TEST IS REPEATED FOR 16 BIT FORMAT WITH THE SSEI 
502 . BIT SET. 

503 

504 

505 

208 TEST 12 READ HEADER & DATA W/ HEAD SWITCHING TEST 

510 THE TEST SEEKS 4 A CYLINDER 559. TO INSURE THERE IS_ NO _ HEAD 
511 MOTION DURING DATA TRANSFER. THE READ HEADER AND DATA COMMAND 
512 STARTS WITH CYLINDER aeoN TRACK 2, SECTOR H RD COUNT IS 
513 EQUAL TO MULTIPLE SECTORS WHICH CAUSES THE SUBSYSTEM 10 SWITCH 


on 








n 
CZRNEAO RM8O FCTNL PT2 MACRO V04.00 28-JAN~82 16:38:23 PAGE 3-9 SEQ 0012 ¢; 


PIPINMIPIPINPIPINININS 2 2 SS 
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TEST 


TEST 


TEST 


TEST 


D, T 8 MOD 
WILL BE TERMINATED AND THE Test rf TREPEATED FOR 16 BIT FORMAT 
WITH THE SSEI BIT SET, WHERE SECTOR 31. IS THE LAST SECTOR. IF NO 
"SSE* WAS SET, THEN BOTH FORMAT MODES WILL BE EXECUTED. 


13 READ HEADER & DATA W/ MID-TRANSFER SEEK TEST 


THIS TEST READS a SECTORS STARTING WITH CYLINDER 
559., LAST TRACK AND S R_30.,_ CAUSING A MID-TRANSFER a si 
AFTER THE FIRST OF TH HE MULTIPLE SECTORS IS READ. IF THE ‘SSE* BIT 
IS SET AFTER EXECUTING A_ DATA COMMAND, THE 16 BIT MODE WILL BE 
TERMINATED AND THE TEST IS REPEATED FOR 16 BIT FORMAT WITH THE 
SSEI BIT SET, WHERE SECTOR 31. IS THE LAST SECTOR. IF NO ‘SSE° 
WAS SET, THEN BOTH FORMAT MODES WILL BE EXECUTED. 


14 FORMAT W/ IMPLIED SEEK TEST 


THIS TEST Pin TO THE FIRST CYLINDER PRIOR TO WRITING HEADER 
AND DATA ON CYLINDER 559. THE ote SEEK INSURES THAT THERE 
WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK OF THE WRITE 
COMMAND. HE SAME OPERATION, INCLUDING THE EXPLICIT SEEK IS 
REPEATED FOR READ HEADER AND DATA. 


15 FORMAT EACH SECTOR ADDRESS TEST 


HEADERS AND DATA OF EACH! SECTOR ON CYLINDER 559., TRACK 2 
ate FORMATTED AND READ WITH THE PROGRAM VERIFYING HEADERS AND 


16 FORMAT EACH TRACK ADDRESS TEST 


THIS TEST FORMATS SECTOR 0 OF EACH TRACK ON CYLINDER 560. 
a. READS EACH SECTOR WITH THE PROGRAM VERIFYING HEADERS ne 
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BaSeESeeR 


AAAAAAQ 
— ot at ot ot 
WONAOMUSwry—O 


RESREREE 


TEST 


TEST 


TEST 


17 READ HEADER & DATA IN LAST SECTOR TEST 

THIS TEST EXECUTES A READS HEADER AND DATA Ne pee ON pe 
LAST SECTOR (30.) OF THE DISK, IN 16 BIT F MODE 
VERIFIES THAT LBT STATUS SETS. IF THE ‘SSE* BIT Is SET AFTER 
te gb A DATA eT THE 16 BIT FOWAT Ul WILL BE TERMINATED 


SET, WHERE SECTOR 31. 15 THE LAST SEC OR. IF *SSE' WAS SET, 
THEN BOTH FORMAT MODES WILL BE EXECUTED. 


20 READ HEADER & DATA W/ AOE ERROR TEST 
THIS TEST READS MULTIPLE SECTORS IN 16 BIT FORMAT, STARTING 
i eit r SECTOR 30. AND VERIFIES Moe} AOE STATUS of ae 


EF T 
FORMAT. WITH THE SSE!I BIT SET, WHERE SECTOR 31. IS THE LAST 
ah IF NO ‘SSE* WAS SET, THEN BOTH FORMAT MODES WILL BE 


27 READ INVALID SECTOR ADDRESS TEST 
THIS TEST USES AN ILLEGAL SECTOR ADDRESS AND VERIFIES THAT 


' JAE STATUS SETS. 


TEST 


TEST 


TEST 


22 READ INVALID TRACK ADDRESS TEST 


THIS TEST USES AN ILLEGAL TRACK ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. 


23 READ INVALID CYLINDER ADDRESS TEST 


THIS TEST USES AN ILLEGAL CYLINDER ADDRESS AND VERIFIES THAT 
IAE STATUS SETS. 


24 FORMAT AT OFFSET TEST 





Ci 





2 
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TEST 


TEST 


TEST 


TEST 





THE PROGRAM SETS OFFSET MODE AND EXECUTES A WRITE HEADER AND 
pe beep! VERIFYING THAT OFFSET MODE IS RESET BY THE WRITE 


25 IVC FORMAT TEST 


VOLUME VALID IS RESET BY SETTING AND RESETTING DIAGNOSTIC 
MODE. THE TEST THEN EXECUTES A eae oe HEADER AND DATA COMMAND AND 
VERIFIES THAT INVALID COMMAND STATUS vit THE TEST IS REPEATED 
FOR READ HEADER AND DATA COMMAND. 


26 FORMAT ERROR TEST 


FOR 46 BIT FORMAT AFTER WHICH 3 wae SECTOR IS READ a 18 BIT 
FORMAT WITH THE PROGRAM VERIFYING T. FORMAT ERROR STATUS IS 

SET. THE SAME PROCEDURE IS REPEATED WITH THE SECTOR WRITTEN IN 
i BIT FORMAT AND READ IN 16 BIT FORMAT. 


27 & 30 FORMAT HCE TEST (1ST AND 2ND HEADER WORDS) 


ted TWO TESTS WRITE AN INCORRECT HEADER THEN READ THE 
HEADER AND VERIFY THAT THE gee HEADER ERROR IS DETECTED. THE 
TES1S SETUP THE CORRECT HEADER, N COMPLEMENT BIT 0 AND USE THE 
MODIFIED BUFFER TO WRITE TH fe" HEAD ER. THE PROCESS IS REPEATED 
UNTIL EACH BIT POSITION HAS BEEN SEPARATELY TESTED. 


31 FORMAT FE CYLINDERS 


THIS TEST FORMATS BOTH FE CYLINDERS TO REESTABLISH THE 
CORRECT FORMAT ON THE SECTORS THAT WERE WRITTEN UPON BY PREVIOUS 
TESTS. THE TEST IS DONE IN 16 BIT FORMAT WITH He de BIT SET TO 


SEQ 0014 


. 2 
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«gy z*LAST REVISION 19-OCT-81 
488 - TITLE CZRNEAO RM80 FCTNL PT2 


3 *COPYRIGHT 
7*DIGITAL EQUIPMENT a 
; *COLORADO SPGS., CO. 8091 


{PROGRAM BY MIKE LEAVITT 


i STHIS PROGRAM WAS ASSEMBLED ag THE PDP=11 MAINDEC SYSMAC 
3 *PACKAGE (MAINDEC-11=DZQAC-C5), 18-MAR-81 


489 :SBTTL OPERATIONAL SWITCH SETTINGS 
3* SWITCH USE 
3* Meeweenw 38 £ eee eeeeoeeeeeee" 
3* 15 HALT ON — 
3* 14 LOOP ON TEST 
3* 13 INHIBIT ERROR TYPEOUTS 
3* 12 UNUSED 
3 11 INHIBIT ITERATIONS 
3* 10 BELL ON ERROR 
3* g LOOP ON ERROR 
7* 8 LOOP ON TEST IN SWR<7:0> 
490 3* 7 ™N128 
3* 6 TN64 
zk 5 ™N32 
3* 4 ™N16 
3* 3 T™N8 
:* 2 TN4 
3* 1 ; TN2 
3* 0 T™N1 
491 
492 ~SBTTL BASIC DEFINITIONS 
INITIAL ADDRESS OF THE STACK POINTER *** 1100 *** 
001100 STACK = 1100 
104000 ERROR = EMT 3:BASIC DEFINITION OF ERROR CALL 
000004 SCOPE = JOT - ::BASIC DEFINITION OF SCOPE CALL 
s*MISCELLANEOUS DEFINITIONS 
000011 HT = 11 ::CODE FOR HORIZONTAL TAB 
000012 LF = \¢ 3:CODE FOR LINE F 
000015 CR = 1 ::CODE FOR CARRIAGE RETURN 
000200 CRLF = 200 7: COD E FOR CARRIAGE RET URNLINE FEED 
177776 PS = 177776 ::PROCESSOR STATUS WORD 
177776 PSW=PS 
177774 — = 177774 z:STACK LIMIT REGISTER 
177772 PIRQ = 177772 fiber ees INTERRUPT REQUEST REGISTER 
177570 DSWR = 177570 ARDWARE SWITCH REGISTER 
177570 DDISP = 177570 + HARDWARE DISPLAY REGISTER 
GENERAL PURPOSE REGISTER DEFINITIONS 
000000 R = 20 3 sGENERAL REGISTER 
000001 R1 = 21 ::GENERAL REGISTER 
000002 R2 = xe + :GENERAL REGISTER 
000003 R3 =% : GENERAL REGISTER 
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C 
BASIC DEFINITIONS 


:*PRIORI 
PRO 


3*"SWITC 
sw15 


:*DATA B 
B1 


DBoOwwowowwww 
Bree fens Bees feag Bee fen) beeng boms Bae be 
AIH Hs 
COCCO] 3 2 2 
ARNODO—NWEU 


72) 

= 

So 

oO 
nHonnnnnnnnnnnnnns 


VPRFLFLPLPL TL 
— NANOUS 


nnnnnnnnir 


nnnnnnnnnn iam 


Pea LFW F— 


Y 


T 


=—MLNVL2]VL2]D WWM SH £O 
ooooooo 


Scoooooo 


—MNLNVL 


Soom L£Oof0f00 
Soooon OOCOOCOooo 


Sooo 


ooo 


Soooooooooo”g 


ooooooom 


ooo 


3;GENERAL REGISTER 
33GENERAL REGISTER 
33GENERAL REGISTER 


ISTER'* SWITCH DEFINITIONS 


ooo 


ooooooomn 


oooo 
So 


oooo! 
o2 


ITIONS (BIT00 TO BIT15) 


SEQ 0016 
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BASIC DEFINITIONS 


509 


WONAUSWN—O 


N 
So 


PIRQVEC 
-SBTTL 
3*RMCS1 


FNCMSK 
3FUNCTI 
ILFO2 
SE 


20 
10 
& 
2 
1 


444444 
oGoooootnn nu tt 
EUAN O 


FOLGHROLESO 


MNAAWWNIN 2 222 & 


= 
—) 


@ 
Sol 
-“—~ 
~ 
-_ 


hnnnnnnn 
oa-saas 
Sooooooo 
Wu 


7 


SOSOOOOOSOOSOSoe COTWTWTOaWw 
Sesssssssss Sot te be ans me me 
Sooooooooo”v 
Soooooooooom 
MN = SO00ouN NO! 
KNVISHAHLNMVOALNWOS , 


CPU’ TRAP VECTOR oor 


OUT AND OTHER ERRORS 


3 SRESERVED AND ILLEGAL INSTRUCTIONS 
;"T’* BIT 


s TRACE TRAP 
: BREAKPOINT TRAP (BPT) 
32 INPUT/OUTPUT TRAP (I0T) **SCOPE** 
33POWER FAIL 
TN ORRAR (EMT) **ERROR** 


Z:TTY KEYBOARD VECTOR 

3: TTY PRINTER VECTOR 

33PROGRAM INTERRUPT REQUEST VECTOR 
RM80 REGISTER BIT DEFINITIONS 


CONTROL STATUS REGISTER 


DEVICE AVAILABLE-READ ONLY 
;FUNCTION CODE 


260 BI 
sFUNCTION CODE MASK 
(BITS 01-05 OF RMCS1) 


3 D 
2 ILLEGAL COMMAND 
EK COMMAND 


TRECALIBRATE COMMAND 

;DRIVE CLEAR COMMAND 

;RELEASE COMMAND 

s OFFSET COMMAND 

;RETURN TO CENTERLINE COMMAND 
;READ IN PRESET COMMAND 
PACK ACKNOWLEDGE COMMAND 


zILLEGAL COMMAND 
ZILLEGAL COMMAND 


SEQ 0017 


F 2 
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RM8O REGISTER BIT DEFINITIONS 
$21 000030 SEARCH = 000030 : SEARCH COMMAND 
524 0000 : ILE 3 = 000030 ‘ILLEGAL COMMAND 
0000 ILF32 = 000032 S ILLEGAL COMMAND 
0000 ILF34 = 000034 ‘ILLEGAL COMMAND 
000036 ILF36 = 000036 ‘ILLEGAL COMMAND 
000040 ILE4O = 000040 ‘ILLEGAL COMMAND 
000042 ILF42 = 000042 S ILLEGAL COMMAND 
000044 ILF44 == 000044 ‘ILLEGAL COMMAND 
000046 ILF46 = 000046 SILLEGAL C 
525 000050 wCD = 000050 *WRITE CHECK DATA COMMAND 
526 000052 WCH = 000052 SWRITE CHECK HEADER AND DATA 
527 000054 ILF54 = 000054 ‘ILLEGAL COMMAND 
528 000056 ILF56 = 000056 S ILLEGAL ‘ 
529 000060 wD = 000060 WRITE DATA COMMAND 
530 000062 WH = 000062 SWRITE READER AND DATA COMMAND 
531 000064 ILF = 000064 SILLEGAL COMMAND 
532 000066 ILF66 = 000066 PILLEGAL COMMAND 
533 000070 = 000070 :READ DATA COMMAND 
534 000072 = 000072 *READ HEADER AND DATA COMMAND 
535 000074 ILF74 = 000074 “ILLEGAL COMMAND 
236 000076 ILF76 = 000076 ‘ILLEGAL COMMAND 
238 :*RMDA DISK ADDRESS REGISTER 
540 zTRACK ADDRESS DEFINITIONS 
541 000 TAB = BIT11 :TRACK ADDRESS 8. 
54 002000 TAG = BIT10 STRACK ADDRESS 4 
54 001000 TA2 = BITO9 STRACK ADDRESS 2 
344 000400 TAl = BITO8 STRACK ADDRESS 1 
546 sSECTOR ADDRESS DEFINITIONS 
547 000020 SA16—s_ = BIT04 sSECTOR ADDRESS 16. 
548 000010 SA8 = BITO3 SECTOR ADDRESS 
549 000004 SA4 = BITO2 *SECTOR ADDRESS 4 
550 000002 SA2 = BITO1 SSECTOR ADDRESS 2 
231 000001 SA1 = BITOO SSECTOR ADDRESS 1 
553 sTRACK & SECTOR MASKS 
554 177400 TADMSK = 177400 s TRACK ADDRESS MASK 
238 000377 SADMSK = 000377 SSECTOR ADDRESS MASK 
337 z*RMDS DRIVE STATUS REGISTER 
559 100000 ATA = BIT15 sATTENTION ACTIVE 
560 040000 ERR = BIT14 “COMPOSITE ERROR 
561 020000 _ PIP = BIT13 :POSITIONING IN PROGRESS 
562 010000 MOL = BIT12 ‘MEDIUM ON LINE 
563 004000 WRL = BIT11 ‘WRITE LOCK 
564 002000 LBT = BIT10 3LAST BLOCK TRANSFERRED 
565 001000 PGM = BITO9 RAMMABLE 
000400 DPR = BITO8 :DRIVE PRESENT 
567 000200 DRY = BIT07 E READY 
568 000100 WV = BIT06 : VOLUME V ALID 
369 000001 OM = BIT00 S OFFSET MODE ACTIVE 
371 S*RMER1 ERROR REGISTER #1 
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RM8O REGISTER BIT DEFINITIONS 


573 100000 DCK = BIT15 DATA CHECK ERROR 
574 040008 UNS = BIT14 DRIVE FE 
575 02 OPI = BITI3 OPERATION INCOMPLETE 
576 010000 DTE = Bille. DRIVE TIMING ERROR 
577 004000 WLE = BIT11 sWRITE LOCK ERROR 
578 002000 IAE = BIT10 z INVALID ADDRESS ERROR 
579 001000 AOE = BITO9 sADDRESS OVERFLOW ERROR 
580 000400 HCRC = B1T08 HEADER CRC ERROR 
581 000200 HOE = BITO sHEADEP COMPARE ERROR 
582 000100 ECH = BIT06 sECC ROR 
583 000040 WCF = BIT0S WRITE CLOCK FAILURE 
584 000020 FER = BITO4 FORMAT ERROR 
585 000010 PAR = BITO3 :PARITY ERROR 
586 000004 RMR = BITO2 sREGISTER MODIFICATION REFUSED 
587 000002 ILR = BITO1 ZILLEGAL REGISTER 
258 000001 ILF = BITOO ILLEGAL FUNCTION 
590 115760 NDTM = DCK!DTE!WLE! AOE !HCRC!HCE!ECH!WCF !FER 
591 :"'NDTMSK"’ IS USED TO MASK ERROR REGISTER 1 DURING NON = DATA 
238 sCOMMANDS, I.E., HOUSEKEEPING AND POSITIONING COMMANDS 
P| *RMAS ATTENTION SUMMARY REGISTER 
236 000377 ATNMSK = 377 :MASK FOR ATTENTION BITS 
a4 z:*RMLA LOOK AHEAD REGISTER 

002000 Sc4 = BIT10 SECTOR COUNT = 16 
601 001000 sc3 = BITO9 SECTOR COUNT = 8 
602 000400 SC2 = BITO8 SECTOR COUNT = 4 
603 000200 $c = BIT07 SECTOR COUNT = 2 
60% 100 sco = BIT06 SECTOR COUNT = 1 
606 003700 SCTMSK = 003700 SECTOR COUNT MASK 
prs 3*RMMR1 MAINTENANCE REGISTER #1 
610 sWRITE ONLY BITS 
611 100000 DBCK = BIT15 DEBUG CLOCK 
612 040000 DBEN = BIT14 DEBUG CLOCK ENABL 
613 020000 DEBL = BIT13 DIAGNOSTIC END OF BLOCK 
614 010000 DTO = BIT12 DIAGNOSTIC TI T 
615 000 MCLK = BIT11 sMAINTENANCE CLOCK 
616 002000 MRD = BIT10 READ DATA 
617 001000 MUR = BITO9 :UNIT READY 
618 00 MOC = BITO8 30N CYLINDER 
619 000200 MSER = BIT07 3SEEK E 
620 000100 MDF = BIT06 DRIVE FAULT 
621 000040 MS = BITOS SECTOR PULSE 
622 000010 MWP = BITO3 WRITE PROTECT 
623 000004 Mi = BITO2 s INDEX PULSE 
624 000002 MSC = BITO1 SECTOR COMPARE 
629 000001 DMD = BITOO DIAGNOSTIC MODE 

READ ONLY BITS 
100000 = BIT15 OCCUPIED 
040000 = BIT14 :RUN AND GO 


SEQ 0019 
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RM8O REGISTER BIT DEFINITIONS 


EBL = BIT13 sEND OF BLOCK 

REX = BITI2 sEXCEPTION 

ESRC = B1T11 sENABLE SE 

PLFS = B1T10 sLOOKING FOR SYNC 

ECRC = B1T09 sENABLE CRC 

PDA = BIT08 zDATA_ AREA 

PHA = BIT07 HEADER AREA 

CONT = B1T8e 3 CONTINUE 

we = BITO sWORD CLOC 

EECC = BITO4 sENABLE ECC OU 

MWD = B1T03 sWRITE DATA BIT 

LS = BITO2 3LAST SECTOR 

LST = 61701 LAST SECTOR AND TRACK: 
DMD = BIT00 DIAGNOSTIC MODE 

z*RMDT DRIVE TYPE REGISTER 

NSA = BIT15 sNOT SECTOR ADDRESSED = 0 
TAP = BIT14 STAPE DRIVE = 0 

MOH = B1T13 ;MOVING HEAD = 1 

DRQ = BIT11 DRIVE REWUEST REQUIRED 
SNGPRT = 020026 sSINGLE PORT DRIVE TYPE 
DULPRT = 024026 [DUAL PORT DRIVE TYPE 
z*RMOF OFFSET REGISTER 

FMT16 «= = BIT12 316 BIT WORD FORMAT 

ECI = BIT11 3ECC INHIBIT 

HCI = B1T10 ;HEADER COMPARE INHIBIT 
SSE = BITO9 ; SKIP oe) roe ERROR INHIBIT 
OFD = BIT07 [OFFSET FORWARD 


z*RMDC DESIRED CYLINDER ADDRESS REGISTER 
CYLMSK = 001777 sMASK FOR CYLINDER ADDRESS 
z*RMMR2 MAINTENANCE REGISTER #2 


= ONLY BITS 
= BIT15 3PORT A REQUEST 
ROB = BIT14 sPORT B REQUEST 
TAG = B1T13 2 TAG CONTROL 
TST = BITI2 ; D SEQUENCE TEST BIT 
cc = BIT11 sCONTROL OR CYLINDER TAG 
CH = B1T10 CONTROL OR HEAD. TAG 
8809 = BITO9 3TAG BUS 
BB08 = BITO8 3TAG BUS 
8807 = B1T07 ;TAG 6US 
B80: = BIT06 :TAG BUS 
880 = BITO5 sTAG BUS 
BB04 = BIT04 3TAG BUS 
8803 = BIT eS 3TAG BUS 
BB02 = BITO2 3TAG BUS 
8801 = B1T01 3TAG BUS 
BB00 = BIT00 TAG BUS 


SEQ 0020 
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100000 
040000 


z*RMER2 ERROR REGISTER 2 


ILRG76 
IDXMSK 
- SBTTL 
3*RMCS1 


sc 
TRE 


wnnnannknne 
frofestesTesTosTestestesdes) 
eed bas Pee tet et es Be es 
$< St St St I 


2 
: 


non 
oww 
bees be me 


= 
FVOAHAHLNOAHAHLVOASHLNVOALOSOSNUGAS © 


AOOUUUUIE &SASWWWWNNND | | | OS 


ANNO 
SNuow 


N“ 
oa 


77 


CoDO] 2] 
WUINS—NOWESu! 


Wweuw 


I 


sBAD SEC TOR ti 


SECTOR ERROR 


sMANUFACTURING DETECTED SECTOR ERROR 
ZUSER DETECTED SECTOR ERROR 
3SKIP SECTOR FAILURE 


EGISTER INDEX VALUES 


CONTROL STATUS REGISTER #1 
REGISTER 


DISK ADDRESS 
SDRIVE STATUS REGISTER 
ERROR _REGI 


STER #1 
sATTENTION SUMMARY REGISTER 
bye AHEAD REGISTER 


;MAINTE $ 
sDRIVE TYPE REGISTER 
AL SA REGISTER 
SOFFSET REGISTE 
DESIR ED CYLINDER REGISTER 


zMASK FOR REGISTER INDEX NUMBER 


RH CONTROLLER REGISTER BIT DEFINITIONS 
CONTROL STATUS REGISTER #1 


BIT15 
BIT14 


SPECIAL CONDITION-READ ONLY 
TRANSFER ERROR 


SEQ 0021 
| 


J 2 
CZRNEAO RM8O FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 4-7 SEQ 0022 
RH CONTROLLER REGISTER BIT DEFINITIONS 
728 020000 MCPE = B1T13 MASSBUS CONTROL BUS PARITY ERROR-READ ONLY 
729 962000 PSEL = BIT10 *PORT B SELECT 
7 001 Al = BITO9 SADDRESS EXTENSION 
1 000400 A16 = B1T08 ZADDRES S EXTENSION 
73 000200 RDY = BITO EADY= ONLY 
033 000100 IE = BIT06 INTERRUPT ENABLE 
039 :*RMCS2 RH CONTROL STATUS REGISTER #2 
737 100000 DLT = BIT15 sDATA LATE=READ ON 
738 04 WCE = BIT14 ‘WRITE CHECK ERROR-READ ONLY 
739 020000 UPE = BIT13 SUNIBUS PARITY ERROR 
740 010000 NED = BIT12 *NONEXISTANT DRIVE-READ ONLY 
741 004000 NEM = BIT11 SNONEXISTANT MEMORY= Y 
742 002000 PGE = B1T10 [PROGRAM ERROR-R 
743 001000 MXF = BITO9 ‘MISSED TRANSFER 
744 000400 MDPE = BITO8 :MASSBUS DATA BUS PARITY ERRGR-READ ONLY 
745 000200 OR = BIT07 OUTPUT READY-READ ONLY 
746 000100 IR = BIT06 t INPUT READY-READ ONLY 
747 000040 CLR = BIT05S ; CONTROLLER CLEAR 
748 00002C PAT = BITO4 *PARITY TEST 
749 000010 BAI = BITO3 : UNIBUS ADDRESS INCREMENT INHIBIT 
752 000004 U2 = BITO2 ‘UNIT SELECT 
000002 Ul = BITO1 zUNIT SELECT 
ee 000007 u0 = BIT00 UNIT SELECT 
oe sUNIT SELECT MASK 
736 000007 UNTMSK = 7 sUNIT SELECT MASK 
£38 3>*RMCS3 RH70 CONTROL STATUS REGISTER #3 
760 100000 APE = BIT15 zADDRESS PARITY ERROR 
761 040000 DPEHI = BIT14 “DATA PARITY ERROR HIGH WORD 
762 020000 DPELO = BIT13 :DATA PARITY ERROR LOW WORD 
763 010000 WCEHI = BIT12 sWRITE CHECK ERROR HIGH WORD 
764 004000 WCELO = BIT11 * WRITE CHECK ERROR LOW WOR 
765 002000 L = BIT10 [DOUBLE WORD TRANSF 
766 000100 IE = BIT06 S INTERRUPT ENABL 
- 767 000010 IPCK3 = BITO3 S INVERT PARITY CHECK 
768 000004 IPCK2 = BITO2 : INVERT PARITY CHECK 
769 000002 IPCK1 = BITO1 s INVERT PARITY CHECK 
mn 1 IPCKO = BITOO s INVERT PARITY CHECK 
re .SBTTL RH CONTROLLER REGISTER INDEX VALUES 
774 RMCS1 = 00 sCONTROL, STATUS REGISTER #1 
775 000002 RMWC 380 = (02 SWORD COUNT REGISTER 
000004 = 04 ‘BUS APRESS REGISTER 
777 000010 RMCS2. = 10 SCONTROL, STATUS REGISTER #2 
778 000022 RMDB. = s ‘DATA BUFFER 
779 000050 RMBAE = 5 *BUS ADDRESS EXTENSION 
780 000052 RMCS3 = 52 SCONTROL, STATUS REGISTER #3 
782 176700 ABASE = 1.5700 :UNIBUS ADDRESS 
783 120254 AVECT1 = 120254 SUNIBUS VECTOR ADDRESS AND PRIORITY 


4 
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TRAP CATCHE 


000046 
000052 


6 
7 
8 


000024 


os 


S8sssss 
— 3 — — — 

— Ss I HI 
NOSRNVSS 


000174 
000000 


000137 
000137 


042 
001114 


005434 
005424 


-SBTTL TRAP CATCHER 


=0 
*ALL_ UNUSED LOCATIONS 
;*SEQUENCE TO CATCH ILL 
i #LOCATION m8. CONTAINS 0 


DISPREG: "SWORD 
SWREG: .WORD 


FROM 4 = 776 CONTAIN A *'.#2,HALT’ 
EGAL TRAPS AND INTERR 
TO CATCH IMPROPERLY LOADED VECTORS 
0 3;SOFTWARE DISPLAY REGISTER 
0 7zSOFTWARE SWITCH REGISTER 


-SBTTL STARTING ADDRESS(ES) 


JMP 
JMP 


@4START 
@4START1 


3: JUMP TO STARTING ADDRESS OF PROGRAM 
;CHANGE RH/RM BUS ADDRESS 


-SBTTL ACT11 HOOKS 


FRRRRRREERERRERREREERERRERERERERERERERERERRERERREEREREERERRREERED 


‘hooks REQUIRED BY ACT11 
$SVPC=. 


-=46 
SENDAD 
-=52 


» WORD 
-=$SVPC 


-=1100 


sSAVE PC 
321)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 


0 ssepseT LOC. gee TO ZERO 
z3 RESTORE 


-SBTTL APT PARAMETER BLOCK 


FERRARA ERAERRERERERRRRERERRERRRRAEREERRERREREREEREEREERERERERRE RE 


iSer LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


FRRRRRRRERERERERERERRREEERRRRRERRERRERRRERARERRERRERRRERRAERER EE 


33SAVE CURRENT LOCATION 
33SET POWER FAIL TO POINT TO START OF PROGRAM 
23FOR APT START UP 
32POINT TO APT INDIRECT ADDRESS PNTR. 
33;POINT TO APT HEADER BLOCK 
33RESET LOCATION COUNTER 


jtutusiatutescninensuenetusnanusnatssentatscensserstassnasenes 


P APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


Seu 
INTERFACE SPEC. 


THD: 
SHIBTS: .WORD 
R: WORD 
STM: .WORD 
SPASTM: .WORD 
SUNITM: .WORD 
WORD 


0 ::TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

S$MAIL ::ADDRESS OF APT MAILBOX (BITS 0-15) 

20. 33RUN TIM OF LONGEST L 

20. 33 RUN T IME | IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
20. DITIONA L RUN ( Sts) OF A PASS FOR EACH ADDED UNIT 
SP TEND-SAAILY ON LENGTH MAILBOX=E TABLE (WORDS 


SEQ 0023 


mane 





0 


egesggeseses 


oo 
oo 


Ssss 
23 I SS 


aa ale aro 
CQOWUMUIWIU AW rn 
SAO SMYENUSSERASKEYSSRRNSNORS 


So 
2232323233293 2244 


S8888888s8sSssssss 


oom N 
VOORUN=S 


SSsssss 
ed od od od SD 
MOROPOAINNY 
y333399 
SNAVOO 


377 


000 
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COMMON TAGS 


377 


~SBTTL COMMON TAGS 


FRRERRARRRRERRAEERAEE EERE RRAERERERRAERRERRRRRERREREEREREREREREES 


SATHIS TABLE gp le VARIOUS COMMON STORAGE LOCATIONS 
7*USED IN THE PROGRAM. 


-=TAGADR 
SCMTAG: yon 0 33START OF COMMON TAGS 
STNM: .BYTE 0 33CONTAINS THE res? NUMBER 
SERFLG: .BYTE 0 CONTAINS ERROR FLAG 
SICNT: .WORD 0 z:CONTAINS SUBTEST ITERATION COUNT 
PADR: . 0 3:CONTAINS SCOPE LOOP ADDRESS 
SLPERR: .WORD 0 2 CONTAINS SCOPE RETURN FOR ERRORS 
SERTTL: .WORD 0 CONTAINS TOTAL ERRORS DETECTED 
EMB: .BYTE 0 ; {CONTAINS ITEM CONTROL BYT 
: BYTE 1 zzCONTAINS MAX. ERRORS PER TEST 
SERRPC: .WORD 0 z:CONTAINS PC OF LAST ERROR INSTRUCTION 
SGDADR: .WORD 0 3:CONTAINS ADDRESS OF ‘GOOD* DATA 
DADR: .WORD 0 z:CONTAINS ADDRESS OF “BAD* DATA 
$GDDAT: .WORD 0 ae ONTAINS ‘GOOD’ D. 
SBDDAT: .WORD 0 zzCONTAINS ‘BAD’ DA 
i 4 7 ;RESERVED=-NOT TO BE USED 
TOB: .BYTE 0 3sAUTOMATIC MODE INDICATOR 
SINTAG: yi 8 33 INTERRUPT MODE INDICATOR 
SWR: WORD DSWR erred OF SWITCH REGISTER 
DISPLAY: .WORD DDISP ADDRESS OF DISPLAY REGISTER 
$TKS: 177560 SITY KBD ST. ae 
$TKB: 177562 33 KBD BUFFER 
$TPS: 177564 S:TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 aah Aig Bg * REG. ear 
ULL: BYTE 90 AINS NULL CHARACTER FOR FILLS 
$FILLS: . 2 ZCONTAINS # OF 4a CHARACTERS movie 
$FILLC: .BYTE 12 LH INSeat FILL CHARS. AFTER A ° 
STPFLG: —E QO ;* "TERMINAL AVAILABLE” FLAG (BIT<O7>20=YES) 
STMPO: . 0 USER DEF INED 
STMP1: .WORD 0 33USER DEFINED 
$TMP2: .WORD 0 32USER DEFINED 
STMP3: .WORD 0 7:USER DEFINED 
TMP4: .WORD 0 2sUSER DEF INED 
STIMES: 0 33MAX. NUMBER OF ITERATIONS 
SESCAPE :0 3 ZESCAPE ON ERROR ADDRESS 
$BELL: .ASCIZ > salemathintacctae $I CODE FOR BELL 
$QUES: .ASCII 3 ;QUESTION MARK 
$CRLF: .ASCII <j 15> 33CARRIAGE RETURN 
SLF: eASCIZ <12> E FEED 


SRERERRARRR ERR EER EEE EERE EERE REE ERR 


‘SBTTL APT MAILBOX-ETABLE 


SON Ga dace ae oo oe, Stig Scale RT 


-EVEN 
] . 


L: MAILBOX 
SMSGTY: .WORD AMSGTY ‘ERESSAGE TYPE CODE 
SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
STESTN: .WORD ATESTN ;;TEST NUMBER 





mo 








——_—_—~} 
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APT MAILBOX-E TABLE 
001230 900000 SPASS: .WORD APASS  ;;PASS COUNT 
001232 000 SDEVCT: .WORD ADEVCT ::DEVICE COUNT 
001234 000000 SUNIT: .WORD AUNIT  ::1/0 UNIT NUMBER 
001236 000000 SMSGAD: .WORD AMSGAD ::MESSAGE ADDRESS | 
001240 000000 SMSGLG: .WORD AMSGLG ;:MESSAGE L 
00124 SETABLE *:APT ENVIRONMENT TABLE 
00124 -BYTE AENV 7 :ENVIR 
00124 000 8B AENVM ;;ENVIR S 
001244 0 SSWREG: . ASWREG ::APT SWITCH REGISTER 
001246 000000 WORD 3 USER 7 
001250 000000 SCPUOP: .WORD  ACPUOP YPE ,OPT TONS 
* BITS eis CPU T 
te 11/04=01, “1/0502, 11/20=03,11/40=04,11/45=05 
3* 11/ 70=06.P 0=07,0=10 
3* BIT 10=REAL 1 IME CL Pock 
* BIT 9=FLOATING POINT PROCESSOR 
n BiT 8=MEMORY MANAGEMENT 
001252 000 $MAMS1: .BYTE S1 ::HIGH ADDRESS,M.S. BYTE 
001253 000 SMTYP1: [BYTE AMTYP1 ::MEM. TYPE,BLKA1 
* MEM.TYPE BYTE <== (HIGH BYTE) 
3* 900 NSEC CORE=001 
7* 300 NSEC BIPOLAR=002 
7 500 NSEC mos= 003 
001254 000000 $MADR1: .WORD AMADR1 ;;HIGH ADDRESS BLK# . 
ok MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “‘TYPE'’ ABOVE 
001256 000 $MAMS2: .BYTE AMAMS2 ;:;HIGH ADDRESS.M.S. BYTE 
001257 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE.BLKA 
001260 000000 SMADR2: .WORD AMADR2 ::MEM.LAST ADDRESS,BLK#2 
001262 000 $MAMS3: .BYTE AMAMS3 ::HIGH ADDRESS.M.S.BYTE 
001263 000 SMTYP3: .BYTE AMTYP3 ;;MEM. TYPE BLKA3 
001264 000000 SMADR3: .WORD AMADR3 ::MEM.LAST ADDRESS,BLK#3 
001266 000 SMAMS4: .BYTE AMAMS4 2 SHIGH ADDRESS .M.S.BYTE 
001267 000 SMTYP4: .BYTE AMTYP4 ::MEM.TYP 4 
001270 00 R4: .WORD + :MEM.LAST ADDRESS .B 
001272 120254 $VECT1: .WORD AVECT1 :: INTERRUPT VECT PRIORITYA1 
001274 0 SVECT2: .WORD AVECT2 3 INTERRUPT Mahe Fars PRIORITYA2 
001276 176700 : (WORD ABASE 3 ;BASE ADDRESS OF EQUIPMENT UNDER TEST 
001300 0 ; ADEVM ::DEVICE MAP 
001302 000000 $CDW1: .WORD ACDW1 : {CONTROLLER DESCRIPTION WORDA#1 
001304 000000 $CDW2: .WORD ACDW2 ::CONTROLLER DESCRIPTION WORDA2 
001306 000000 SDDWO: .WORD ADDWO  ;;DEVICE DESCRIPTOR WORDAO 
001310 000000 SDDW1: :WORD ADDW1 ::DEVICE DESCRIPT #1 
001312 000000 $DDW2: .WORD ADDW2 :;DEVICE DESCRIPTOR WORDA2 
001314 $DDW3: .WORD ADDW3 ;;DEVICE DESCRIPTOR WORD#S 
001316 000000 SDDW4: :WORD ADDWS  ;;DEVICE IPTOR WORDA4 
001320 000000 $DDW5: .WORD’ ADDWS ;;DEVICE DESCRIPTOR WORDAS 
001322 000000 $DDW6: .WORD ADDW6 :;DEVICE DESCRIPTOR WORD#6 
001324 000000 SDDW7: .WORD ADDW7 ;;DEVICE DESCRIPTOR WORDA7 
001326 SETEND: 
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-SBTTL USER DEFINED TAGS 


001348 000000 CTLFG: .WORD 0 sCONTAINS CONTROL-C FLAG 

0013 090000 CHGADR: .WORD 3CHANGE RH/RM BUS ADDRESS = -1, NO re = 0 

001332 000000 XXDP: .WORD [THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH 
ZTHE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE 
3 "XXDP! DEVICE CODE FOR THE RM80. 

oR 000 LSTRK: .BYTE 0 YTE = 

0013355 015 BYTE 13. TRI BYTE, CONTAINS LAST TRACK ADDRESS OF UNIT 
SUNDER TEST. RM80 = 13. 


THE REGISTER INPUT BUFFER IS USED FOR 
ZSTORING DRIVE STATUS 


001336 GETBUF : 
:REGISTER INPUT BUFFER 
001336 000000 RMCS1I: .WORD 0 ;CONTROL, STATUS REGISTER #1 
001340 000000 RMWCI:  .WORD 0 SWORD COUNT REGISTER 
001342 000000 RMBAI: .WORD 0 'BUS ADDRESS REGISTER 
001344 000000 RMDAI: .WORD 0 [DISK ADDRESS REGISTER 
001346 000000 RMCS2I: .WORD 0 SCONTROL, STATUS REGISTER #2 
001350 000000 RMDSI: .WORD 0 *DRIVE STATUS STER 
001352 000000 RMER1I: .WORD 0 Z ERROR GISTER #1 
001354 000000 SI: .WORD 0 SATTENTION SUMMARY REGISTER 
001356 000000 RMLAI: .WORD 0 ‘LOOK AHEAD REGISTER 
001360 000000 RMDBI: .WORD 0 [DATA BUFFER 
001362 000000 11: .WORD 0 SMAINTENANCE REGISTER #1 
001364 000000 Tl: .WORD 0 ;DRIVE TYPE REGISTER 
001366 000000 RMSNI: .WORD 0 SSERIAL NUMBER REGISTER 
001370 000000 Fl: .WORD 0 [OFFSET REGISTER 
001372 000000 RMDCI: .WORD 0 [DESIRED CYLINDER REGISTER 
001374 000000 RI: .WORD 0 S HOLDING TER 
001376 000000 21: :WORD 0 “MAINTENANCE REGISTER #2 
001400 000000 RMEROI: .WORD 0 ZERROR R R #2 
001402 000000 EC1I: .WORD 0 CC POSITION REGISTER 
001404 000000 RMEC21: .WORD 0 SECC PATTERN REGIST 
001406 000000 RMBAEI: .WORD 0 *BUS ADDRESS EXTENSION REGISTER 
001410 000000 RMCS31: .WORD 0 *CONTROL, STATUS REGISTER #3 
:THE REGISTER OUTPUT BUFFER IS USED FOR 
SASSEMBLING DATA GOING TO REGISTER 
001412 PUTBUS : 
-REGISTER OUTPUT BUTFER 
001412 000000 RMCS10: .WORD 0 SCONTROL, STATUS REGISTER #1 
001414 000000 RMCO: SWORD SWORD COUNT REGISTER 
001416 000000 WORD 0 SBUS ADDRESS REGISTER 
901420 000000 RRDAQ: WORD DISK ADDRESS REGIS.ER 
001422 000000 RMCS20: .WORD 0 3 CON TROL STATUS REGISTER #2 
001424 RMDSO: .WORD *DRIVE STATUS REGISTER 
001426 0 RMER10: “WORD SERROR REGIS 
0014 RMASO: .WORD SATTEN ripy SUMMARY REGISTER 
14 RMLAO: .WORD *LOOK AHEAD REGISTER 
0014 900000 RMDBO: .WORD *DATA BUFFER 
0014 RMMR10: .WORD ?MAINTENANCE REGISTER #1 





mao 





RMDTO: .WORD 0 sDRIVE TYPE REGISTER 

RMSNO: .WORD 0 RIAL NUMBER REGISTER 
RMOFO: .WORD 0 SOFFSET REGISTER 

RMDCO: .WORD 0 ;DESIRED Pu es REGISTER 
RMHRO: . 0 HOLDING REGISTER 

RMMR2O: eWORD Q {MAIN NIENANCE REGISTER #2 
RMER2O: .WORD 0 sERROR REGISTER #2 

RMECIC: .WORD 0 sECC POSITION REGISTER 
RMEC20: .WORD 0 sECC PATTERN REGISTER 
RMBAEO: .WORD 0 7BUS ADDRESS EXTENSION REGISTER 
RMCS3O0: .WORD 0 SCONTROL, STATUS REGISTER #3 


sEACH WORD OF THE TEST QUE CONTAINS THE want NUMBER IN 

iTHE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE 
FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST 

:INT . i iy ZERO WORD IS A BLANK AND REPRESENTS THE 


TSTQUE: .WORD 0 ;CONTAINS DEVICE POINTER 
-BLKW 8. [TEST QUE FOR DEVICES UNDER TEST 
-WORD 0 ZTABLE TERMINATOR GOES HERE WHEN 


ALL 8. DEVICES ARE UNDER TEST. 


sMEDIA ENABLE IS SET_IF THE BAD SECTOR FILES HAVE BEEN RECOVERED 
3FOR THE UNIT UNDER TEST, OTHERWISE IT IS ZERO. 
MEDENB: .WORD 0 sMEDIA ENABLE 


zSKIP SECTOR FAILURE ENABLE IS SET IF THE ‘‘SSF‘* BIT SHOULD BE 
SSET IN THE FIRST HEADER WORD WHEN THE FE CYLINDERS ARE BEING 
;REFORMATTED. 

SSFENB: .WORD 0 3SSF ENABLE 


;LOCATIONS ‘‘ASNDC'* AND ‘‘ASNDC*’ CONTAIN THE CYLINDER, TRACK AND SECTOR 
SADDRESS ASSIGNED BY THE BAD SECTOR MODULE. 


ASNDC: .WORD 0 sASSIGNED DESIRED CYLINDER 
ASNDA: .WORD 0 ZASSIGNED TRACK, AND SECTO 
CLKADR: .WORD 0 SUNIBUS ADDRESS OF KW11 CLOCK 
CLKVCT: .WORD 0 :VECTOR ADDRESS OF KW11 CLOCK 


THE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH 
ZARE READ 8 "OE GET SUBROUTINE. THE LIST IS TERMINATED BY 


GETINX: .BLKB 23. 3GET INDEX TABLE 

THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH 
SARE WRITTEN 4 THE PUT SUBROUTINE. THE LIST IS TERMINATED BY 
7A NEGATIVE BYT 
PUTINX: .BLKB 23. 3PUT INDEX TABLE 


3PUT TAGS HERE 


SEG 0027 
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-SBTTL ERROR POINTER TABLE 


THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
iUaeafon vohhale PH ee INDICATES WHICH ITEM IN THE aS IS PERTINENT. 


S 0 THE ONLY PERTINENT DATA _IS (SE Pe 
 *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
7* EM Eis sl TO THE ERROR MESSAGE 
7* DH POINTS TO THE DATA HEADER 
3* DT ::POIN TS TO THE DATA 
3* DF [POINTS TO THE DATA FORMAT 
001604 SERRTB 
¢ sERROR 1 WRONG UNIT SELECTED 
001604 065442 EMT1 
001606 071600 EHT1 
001610 071724 EDT1 
001612 072014 EFT1 
4 
2 sERROR 2 DEVICE WENT UNAVAILABLE 
001614 065446 EMT2 
001616 071600 EHT1 
001620 071724 EDT1 
001622 072014 EFT1 
7 
2 sERROR 3 DEVICE WENT NONEXISTENT 
001624 065454 EMT3 
001626 071600 EHT1 
001630 071724 EDT1 
001632 072014 EFT1 
10 
sERROR 4 CONTROLLER NOT READY 
001634 065462 EMT4 
001636 1600 EHT1 
001640 071724 EDT1 
001642 072014 EFT1 
13 
% sERROR 5 DRIVE NOT READY AND GO NOT RESET 
001644 065470 EMTS 
01646 071600 EHT1 
001650 071724 EDT1 
1652 072014 EFT1 
16 
17 sERROR 6 UNEXPECTED VALUE FOR ‘‘ATA’* STATUS 
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001654 065476 EMT6 
001656 071600 EHT1 
001660 071724 EDT1 
001662 072014 EFTI 
19 
20 sERROR 7 BUS TIMEOUT TRYING TO READ OR WRITE REGISTER 
001664 0655 EMT? 
1666 000000 0 
001670 00000 0 
001672 000000 0 
22 
33 *ERROR 10 DRIVE NOT READY BUT GO IS RESET 
001674 065512 EMT10 
001676 071600 
001700 071724 EDT1 
001702 072014 EFT1 
25 
26 ZERROR 11 GO NOT RESET BUT DRIVE IS READY 
001704 065516 EMT11 
071600 
001710 071724 EDT1 
001712 072014 EFT1 
28 
33 sERROR 12 INCORRECT FUNCTION CODE 
001714 065522 EMT12 
001716 071500 EHT 
001720 0;1724 EDT1 
001722 072014 EFT1 
31 
3¢ sERROR 13 - PARITY ERROR READING REMOTE REGISTERS 
001724 065530 EMT13 
001726 071600 EHT 
001730 071724 EDT1 
001732 072014 EFT1 
34 
3 ZERROR 14 TRANSFER ERROR IS INCORRECT 
001734 065542 EMT14 Bi 
001736 071600 EHT1 
001740 071724 EDT1 
001742 072014 ‘ EFTI 
37 
38 ZERROR 15 INCORRECT WORD COUNT 


E 3 | 
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EMT 
001746 071600 EHT 
001750 071724 EDT 
001752 072014 EFT 


40 
$3 ERROR 16 INCORRECT BUS ADDRESS 
1 065556 EMT16 
001756 071600 EHT1 
001760 071724 EDT1 
001762 072014 EFT1 
43 
re ERROR 17 INCORRECT LBT STATUS 
001764 55 EMT17 
001766 071600 EHT1 
00177C 071724 EDT1 
001772 072014 EFT1 
46 
+4 zERROR 20 INCORRECT AOE 
001774 065576 EMT20 
1776 071600 
071724 EDT1 
002002 072014 EFT1 
49 
3 sERROR 21 INCORRECT DISK ADDRESS 
002004 065606 EMT21 
002006 071600 EHT 
002010 071724 EDT1 
002012 072014 EFT1 
52 
23 sERROR 22 INCORRECT CYLINDER ADDRESS 
002014 065616 ‘ EMT22 od 
2016 071600 EHT1 
002020 071724 EDT1 
002022 072014 EFT1 
55 
6 ERROR 23 INCORRECT WLE STATUS 
002024 065626 EMT23 
002026 071600 
002030 071724 EDT1 
002032 072014 EFT1 


59 sERROR 24 INCORRECT UPE STATUS 








F 
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002036 071600 EHT1 
002040 071724 EDT1 
002042 072014 EFTI 
61 
62 | ERROR 25 INCORRECT WCF STATUS 
002044 065646 EMT25 
002046 071600 EHT1 
002050 071724 EDTI 
002052 072014 EFTI 
64 
65 ERROR 26 INCORRECT WCE STATUS 
002054 065656 EMT26 
002056 071600 
060 071724 EDTI 
002062 072014 EFT1 
67 
68 ERROR 27 INCORRECT MDPE STATUS 
002064 065666 EMT27 
002066 071600 EHT 
002070 071724 EDT1 
002072 072014 EFTI 
70 
21 ERROR 30 INCORRECT DCK STATUS 
002074 065676 EMT30 
002076 071600 
100 071724 EDT1 
002102 072014 EFTI 
73 
0 SERROR 31 INCORRECT ECH STATUS | 
002104 065706 EMT31 
002106 071600 H | 
002110 071724 EDTI 
002112 072014 EFTI 
7% 
ad ERROR 32 DLT SHOULD NOT BE SET 
002114 065716 EMT32 
002116 071600 EHT1 ; 
002120 071724 EDT1 
002122 072014 EFTI 
79 
80 : SERROR 33 MXF SHOULD NOT BE SET 
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00 139 71726 EDT1 
0021 72014 EFT1 
i 
YH TERROR 34 DTE SHOULD NOT BE SET 
002134 065736 EMT34 
002136 071600 EHT1 
002140 071724 EDT1 | 
002742 072014 EFT1 
85 
86 sERROR 35 INCORRECT HCRC STATUS 
002144 065746 EMT35 : 
002146 071600 
002150 071724 EDT? 
002152 072014 EFT 
Bg 
89 sERROR 36 INCORRECT HCE STATUS 
002154 065756 EMT36 
002156 071600 EHT 
002160 071724 EDT1 
002162 072014 EFT1 
91 
38 sERROR 37 INCORRECT FER STATUS 
002164 065766 EMT37 
166 071600 
002170 071724 DT1 
002172 072014 EFT? 
94 
4] ZERROR 40 DPE SHOULD NOT BE SET (NOT A DATA COMMAND) 
002174 065776 EMT4O 
002176 071600 
002200 071724 EDT1 
002202 072014 EFT1 
97 
38 ZERROR 41 LOST “MOL'’ DURING PACK ACKNOWLEDGE 
002204 066004 EMT41 
902206 071600 EHT1 
002210 071724 EDT1 
002212 072014 - &BFTI 
100 
10) sERROR 42 UNSAFE ERROR DURING PACK ACKNOWLEDGE 
002214 014 EMT42 
902218 O7600 EHT1 
002220 071724 EDT1 
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RROR POINTER TABLE 
002222 072014 


zERROR 


;ERROR 


;ERROR 


zERROR 


EFT! 


a 


EMT43 
EHT1 


“OPI'* ERROR DURING PACK ACKNOWLEDGE 


“"RMR'’ ERROR DURING PACK ACKNOWLEDGE 


**ILR"’ ERROR DURING PACK ACKNOWLEDGE 


**ILF’* ERROR DURING PACK ACKNOWLEDGE 


COMPOSITE ERROR STATUS IS INCORRECT 


PARITY ERROR WRITING REMOTE REGISTERS 


INCORRECT IAE STATUS DURING SEEK COMMAND 


SEQ 0033 


071724 


7 ERROR 


;ERROR 


;ERROR 
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OPI ERROR DURING SEEK = MEDIUM IS NOT ON LINE 


OPI ERROR DURING SEEK = MEDIUM IS ON LINE, ASSUME 
ON CYLINDER LATCH DIDN'T RESET 


SEEK INCOMPLETE ERROR DURING SEEK COMMAND 


DEVICE CHECK DURING SEEK COMMAND 


PIP IS STILL SET AFTER SEEK = SKI IS RESET 


ATA DID NOT SET DURING SEEK COMMAND 


IVC ERROR DURING SEEK COMMAND ~ LOST 
VOLUME VALID 


mo 
zam 
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POINTER TABLE 


002402 


072014 


066240 
071600 
071724 
072014 


072014 


071600 
071724 
072014 


072014 


44 
071600 
071724 
072014 


066536 


;ERROR 


zERROR 


;ERROR 


;ERROR 


7 ERROR 


zERROR 


ERROR 


EFT1 


SEQ 0035 


ERRONEOUS IVC ERROR ts SEEK COMMAND - 
VOLUME VALID IS STIL SET 


MOL IS ZERO, BUT OPI WAS NOT 
REPORTED DURING SEEK COMMAND 


SSE SHOULD NOT BE SET 


DRIVE DID NOT DETECT “‘IVC*’ ERROR DURING SEEK 


DRIVE EXECUTED A SEEK WITH ERROR SET 


UNEXPECTED ERROR SET IN RMER1 


UNEXPECTED ERROR SET IN RMER2 


na 


071724 
072014 


072014 


066426 
071600 
071724 
072014 


072014 


066474 
071600 


;ERROR 


;ERROR 


;ERROR 


: ERROR 


7ERROR 


; ERROR 


;ERROR 
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ERRONEOUS "‘IA&'* ERROR DURING RECALIBRATE 


"*ILF'* ERROR DURING RECALIBRATE 


"“OPI'' ERROR DURING RECALIBRATE DUE TO ‘MOL"’ = 0 


“OPI'* ERROR DURING RECALIBRATE BECAUSE ON 
CYLINDER DIDNT DROP 


"“IVC'' ERROR DURING RECALIBRATE = ‘“‘VV"* = 0- 


ERRONEOUS ‘‘IVC'’ ERROR DURING RECALIBRATE ~ ‘‘VV"* = 1 


"SKI*' ERROR DURING RECALIBRATE 


SEQ 0056 





mao 


00 
002610 
002612 
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071724 
072014 


072014 


066552 





;ERROR 


;ERROR 


zERROR 


; ERROR 


;ERROR 


;ERROR 


zERROR 


MACRO V04.00 28-JAN-82 16:38:23 PAGE 8-9 


104 








"DVC'* OCCURRED DURING RECALIBRATE 


LOST "'MOL'’ DURING RECALIBRATE = ‘OPI’ = 0 


LOST "VV" DURING RECALIBRATE = “‘IVC*’ = 0 


“ATA’’ DID NOT SET DURING RECALIBRATE 


*OM'’ DID NOT RESET DURING RECALIBRATE 


‘PIP’’ IS STIL SET AFTER RECALIBRATE 


UNEXPECTED “*ILR’* ERROR DURING RECALIBRATE 


SEQ 0037 | 


me 


002652 


002670 


16 071 
071744 
| 072 


072014 


034 


066700 
000000 
000000 
000000 


;ERROR 


;ERROR 


zERROR 


3 ERROR 


;ERROR 


; ERROR 


zERROR 


EFT! 


106 
EAT IOS 
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UNEXPECTED ‘'RMR'' ERROR DURING RECALIBRATE 


"UNS'’ ERROR DURING RECALIBRATE = AC POWER IS LOW 


CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS 


NONEXISTENT DEVICE 


DEVICE NOT AVAILABLE 


BUS TIMEOUT-NED STATUS FAILURE 


UNUSED 


mo 








072014 


066756 


; ERROR 


; ERROR 


; ERROR 


7 ERROR 


; ERROR 


115 


EMT115 
EHT1 


116 


117 


120 


121 
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RMCS1 NOT INITIALIZED BY UNIBUS 


RMBA NOT INITIALIZED BY UNIBUS 


RMCS2 NOT INITIALIZED BY UNIBUS 


RMER1 NOT INITIALIZED BY UNIBUS 


RMAS NOT INITIALIZED BY UNIBUS 


RMMR1 NOT INITIALIZED BY UNIBUS 


‘ RMDS NOT INITIALIZED BY UNIBUS 


moa 
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255 
236 ERROR 124  RMEC2 NOT INITIALIZED BY UNIBUS 
003034 067006 EMT124 
003036 071600 
003040 071724 EDTI 
003042 072014 EFTI 
258 
259 ERROR 125 — RMMRZ2 NOT INITIALIZED BY UNIBUS 
003044 0670 EMT125 
003046 071600 EHT1 
003050 071724 EDTI 
003052 072014 EFTI 
261 
262 ERROR 126  RMCS1 NOT CLEARED BY CONTROLLER CLEAR 
003054 067026 EMT126 
003056 971600 , EHT1 
003060 071724 EDT1 
003062 072014 EFTI 
264 
265 ERROR 127 — RMBA NOT CLEARED BY CONTROLLER CLEAR 
003064 067040 EMT127 
003066 071600 EHT1 
003070 071724 EDT! 
003072 072014 EFTI 
267 
$o5 sERROR 130 RMCS2 NOT CLEARED BY CONTROLLER CLEAR 
003074 067052 EMT130 
003076 071600 EHT1 
100 071724 EDT1 
003102 072014 EFTI 
270 
er ERROR 131 RMER1 NOT CLEARED BY CONTROLLER CLEAR 
003104 067064 EMT131 
003106 071600 
003110 071724 EDT1 
003112 072014 EFTI 
273 
20 ERROR 132  RMAS NOT CLEARED BY CONTROLLER CLEAR 
003114 067076 EMT132 
003116 071600 EHT1 
003120 071724 EDTI 
003122 072014 EFTI 
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SEQ 0041 


a4 sERROR 133 RMMR1 NOT CLEARED BY CUNTROLLER CLEAR 
0031 067110 EMT133 
003126 071600 EHT1 
003130 071724 EDT] 
003132 072014 EFT1 
279 
$o0 sERROR 134 RMDS NOT CLEARED BY CONTROLLER CLEAR 
003134 067122 EMT 134 
003136 071600 EHT1 
003140 071724 EDT1 
003142 072014 EFT1 
282 
sr sERROR 135 RMEC2 NOT CLEARED BY CONTROLLER CLEAR 
003144 067134 EMT135 
003146 071600 EHT1 
003150 071724 EDT1 
003152 072014 EFT1 
285 
oes sERROR 136 RMMR2 NOT CLEARED BY CONTROLLER CLEAR 
003154 067146 EMT136 
003156 071600 EHT1 
003160 071724 EDT1 
003162 072014 EFT1 
288 
344 sERROR 137 RMCS1 NOT CLEARED BY ERROR CLEAR 
c 
003164 067160 EMT137 
003166 071600 EHT1 
003170 071724 EDT1 
003172 072014 EFT1 
91 
$96 sERROR 140 RMCS2 NOT CLEARED BY ERROR CLEAR 
003174 067170 EMT140 
003176 071600 EHT1 
003200 071724 EDT1 
003202 072014 EFT1 
294 
$o2 zERROR 141 RMCS1 NOT CLEARED BY DRIVE CLEAR 
003204 067200 EMT141 
32 071600 EHT1 
003210 071724 EDT1 
003212 072014 EFT1 
297 
298 sERROR 142 RMDS NOT CLEARED BY DRIVE CLEAR 





6 
003230 
003232 


303 


003234 
003236 
003240 
003242 


072014 


067230 


072014 


067240 


072014 


067250 


072014 


067260 


072014 


067270 
071600 
071724 
072014 


;ERROR 


;ERROR 


7 ERROR 


ERROR 


;ERROR 


;ERROR 


7 ERROR 


146 


147 


150 
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RMER1 NOT CLEARED BY DRIVE CLEAR 


RMAS NOT CLEARED BY DRIVE CLEAR 


RMMR1 NOT CLEARED BY DRIVE CLEAR 


RMMR2 NOT CLEARED BY DRIVE CLEAR 


RMER2 NOT CLEARED BY DRIVE CLEAR 


RMEC2 NOT CLEARED BY DRIVE CLEAR 


MEDIUM NOT ON LINE 





067708 
Ori ree 
072014 


067416 


3 ERROR 


3 ERROR 


3 ERROR 


zERROR 


;ERROR 


zERROR 


zERROR 


152 


153 


156 


160 
EMT160 
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DRIVE FAULT 


UNSAFE SHOULD BE SET BECAUSE DVC IS SET 


UNSAFE SHOULD NOT BE SET, AC IS LOW 


VOLUME VALID NOT SET BY PACK ACK 


OFFSET MODE NOT SET BY OFFSET COMMAND 


OFFSET MODE NOT RESET BY RTC COMMAND 


RMOF NOT RESET BY RIP COMMAND 


SEQ 0043 









SEQ 0044 
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003376 071600 EHT1 
071724 EDTI 
003402 072014 EFTI 
mE 
343 ERROR 161 RMDA NOT RESET BY RIP COMMAND 
003404 067426 EMT161 
003406 071600 EHT1 
003419 071724 EDTI 
003412 072014 EFTI 
345 
346 ERROR 162 RMDC NOT RESET BY RIP COMMAND 
003414 067440 EMT162 
003416 071600 EHT1 
003420 071724 EDT? 
003422 072014 EFT 
348 
349 ERROR 163 DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH 
330 : WRITE BUFFER 
003424 071374 EMT336 
003426 071662 EHT336 
3430 071760 EDT336 
003432 072050 EFT336 
352 
355 SERROR 164 OPI SHOULD NOT BE SET 
003434 067462 EMT 164 
003436 071 EHT1 
003440 071724 EDT? 
003442 072014 EFTI 
55 
356 ERROR 165 IVC SHOULD NOT BE SET 
003444 067470 EMT165 
003446 071 EHT1 
003450 071724 EDT1 
003452 072014 EFTI 
358 
339 ZERROR 166 IAE SHOULD NOT BE SET 
003454 067476 EMT166 
003456 071600 EHT1 
3460 071724 EDT1 
072014 EFTI 
167 NEM SHOULD NOT BE SET 





EMT167 
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ROR POINTER 


8 


O71 794 


072014 


072014 


067 7566 
071600 
071724 
072014 


O67? Pty 
071600 


zERROR 


; ERROR 


ERROR 


7 ERROR 


171 


175 


INCORRECT *MOL*' STATUS DURING DIAGNOSTIC MODE 


"ATA’' NOT SET DURING RETURN TO CENTERLINE 


*““ATA’™’ NOT SET BY OFFSET COMMAND 


RMER2 NUT INITIALIZED BY UNIBUS INIT 


RMER2 NOT INITIALIZED BY CONTROLLER CLEAR 


SELECTED DEVICE IS IN WRITE PROTECT 


CANNOT SET DIAGNOSTIC MODE 


mao 


003560 
003562 


071724 
072014 


067672 
071600 
071724 


ERROR 


; ERROR 


ERROR 


;ERROR 


zERROR 


zERROR 


201 
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ERROR POINTER TABLE 





--RESERVED FOR POWER MONITOR BIT FAILURE-- 


INCORRECT 


INCORRECT 


INCORRECT 


INCORRECT 


*“PIP’’ STATUS DURING DIAGNOSTIC MODE 


“WRL'* STATUS DURING DIAGNOSTIC MODE 


"“SKI'’ STATUS DURING DIAGNOSTIC MODE 


“DVC"* STATUS DURING DIAGNOSTIC MODE 


"vv"" WAS NOT RESET BY MAINTENANCE UNIT READY 


SELECTED DEVICE HAS A PERSISTENT ‘'SKI** ERROR 





SEQ 0046 


| 
eee 





I 
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ERROR POINTER TABLE 


003652 072014 EFT1 
406 
ps tA sERROR 206 “LBC’* DID NOT SET DURING DIAGNOSTIC MODE 
003654 067702 EMT206 
003656 071600 
071724 EDT] 
003662 072014 EFT1 
409 
219 sERROR 207 UNEXPECTED LOSS OF ‘MOL'’ - MEDIUM IS OFF LINE 
003664 712 EMT207 
3666 071690 EHT 
003670 071724 EDT1 
003672 014 EFT1 
412 
a\2 sERROR 210 UNEXPECTED LOSS OF VOLUME VALID - ‘‘vv"’ = 0 
003674 0677 EMT210 
003676 071600 
003700 071724 EDT1 
003702 072014 EFT1 
415 
2\¢ sERROR 211 UNEXPECTED MECHANICAL MOTION = ‘PIP*’ = 1 
003704 067732 EMT211 
0037 0716 
003710 071724 EDT1 
003712 072014 EFT1 
418 ; 
rth sERROR 212 UNEXPECTED DEVICE FAULT ~ ‘DVC** = 1 
003714 067746 EMT212 
003716 071600 EHT 
003720 071724 EDT1 
003722 072014 EFT1 
421 
4s6 sERROR 213 UNEXPECTED SEEK INCOMPLETE ERROR = ‘'SKI*’ = 1 
003724 067762 EMT213 
003726 071600 
003750 071724 EDT1 
003732 072014 EFT1 
42h 


425 sERROR 214 DRIVE EXECUTED A RECALIBRATE WITH ERROR SET 





mo 


J 4 
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ERROR POINTER TABLE 
427 
+38 sERROR 215 DRIVE DID NOT DETECT “‘IVC’’ ERROR DURING RECALIBRATE 
003744 07 EMT215 
003746 07161 EHT 
003750 071 EDT 
003752 072024 EFT 
430 
$3) _gERROR 216 INCORRECT “‘IVC’* STATUS 
003754 070024 EMT216 
003756 071600 
003760 071724 EDT1 
003762 072014 EFT1 
433 
438 sERROR 217 INCORRECT “‘IAE'* STATUS 
003764 07003 EMT217 
003766 071600 EHT1 
003770 071724 EDT1 
003772 072014 EFT1 
436 
$3f sERROR 220 INCORRECT ‘WLE*’ STATUS 
003774 070044 EMT220 
003776 071600 EHT1 
004 071724 EDT1 
004002 072014 EFT1 
439 
rr sERROR 221 INCORRECT ‘OPI’ STATUS 
004004 070054 EMT221 
004006 071600 EHT1 
004010 071724 EDT1 
004012 072014 EFT1 
abe 
ra sERROR 222 RM80 DID NOT DETECT RMR ERROR 
004014 070064 EMT222 
004016 071600 EHT1 
004020 071724 EDT1 
004022 072014 EFT 
445 
466 sERROR 223 RM80 DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS 
004024 070074 EMT $3 
004026 071636 EHT223 
004030 071750 EDT223 
004032 072040 EFT223 





mo 


072014 


070120 
071600 
071724 
072014 


070140 


072014 


070150 


072014 


070164 
000000 
000000 
000000 


070166 
000000 
000000 
000000 


070170 
000000 


000000 
000000 


; ERROR 


ERROR 


7 ERROR 


;ERROR 


ERROR 


sERROR 


7 ERROR 


224 


226 


230 
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ERROR POINTER TABLE 


SSE NOT DETECTED DURING DATA TRANSFER 


“SSEI'' NOT RESET BY END OF TRACK DURING DATA TRANSFER 


""SSEI'* SHOULD BE SET AFTER DATA TRANSFER 


SSE WAS DETECTED W/ SSEI SET 


UNUSED 


UNUSED 


UNUSED 





000000 


000000 
000000 
000000 
000000 


;ERROR 


z ERROR 


;ERROR 


zERROR 


;ERROR 


;ERROR 


;ERROR 


;ERROR 


233 
EMT233 


oooo 


240 


oooo 


oooo 


242 
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ERROR POINTER TABLE 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 


UNUSED 
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CZRNE 
ERROR POINTER TABLE 


;ERROR 
496 

497 ; ERROR 
49 

499 

5C0 ; ERROR 


503 ; ERROR 


094262 072014 


506 ERROR 
070230 


004270 071724 
004272 072014 


509 : ERROR 


213 ERROR 
318 ‘ 


oo°o°o 


247 


250 


UNUSED 


UNUSED 


UNUSED 


“"ATA’' NOT RESET BY GO WHEN ‘ERR’ = 0 


"ATA" NOT RESET BY WRITING RMAS 


“"ATA'' WAS RESET BY GO WHEN “‘ERR"’ = 1 


PROGRAM INTERRUPT WAS NOT GENERATED 


SEQ 0051 | 


Ci 
ll 
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ERROR POINTER TABLE 


004 


07025 
71734 
O72024 


070272 
071600 
071724 
072014 


070310 


072014 


070320 


072014 


070330 


072014 


070352 


zERROR 


ERROR 


zERROR 


7 ERROR 


3 ERROR 


254 


255 


260 
EMT 260 


SEQ 0052 C2 
GE 


PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED 


7 
. 


a 


OFFSET MODE WAS NOT RESET BY WRITING RMDC 


INCORRECT ““ILF*’ STATUS 


INCORRECT ‘'ATA' STATUS 


INCORRECT “*ILR’’ STATUS 


INVALID IAE STATUS DURING SEARCH COMMAND 


— ES ES 


"IVC'' WAS NOT DETECTED DURING SEARCH COMMAND 


004376 
004400 
004402 


671600 
b72014 


072014 


070424 


072014 


070444 


072014 


(70476 


;ERROR 


;ERROR 


;ERRUR 


; ERROR 


zERROR 


2 ERROR 


261 


EMT 261 
EHT1 


26" 


267 


EMT267 
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ERROR POINTER TABLE 


DRIVE EXECUTED SEARCH WITH ERROR SET 


"“LBC'’ ERROR NOT SET DURING DIAGNOSTIC MODE 


"'SKI'* ERROR DURING SEARCH COMMAND 


"IVC’' ERROR DURING SEARCH = LOST VOLUME VALID 


ERRONEOUS IVC ERROR DURING SEARCH ~ VOLUME IS VALID 


DEVICE FAULT (DVC) DURING SEARCH 


SKI SHOULD nAYE BEEN SET BECAUSE CYLINDER 
ADDRESS IS TOO LARGE 


SEQ 0053 





004466 
004470 
004472 


671900 
072014 


070514 


072014 


070530 


072014 


070546 


072014 


070564 


;ERROR 


;ERROR 


ERROR 


7ERROR 


7ERROR 


;ERROR 


271 


274 


CZRNEAO RM8O FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 8-26 
ERROR POINTER TABLE 


OPI ERROR DURING SEARCH BECAUSE MOL = 0 


OPI ie? DURING SEARCH BECAUSE ON CYLINDER 
DIDN'T DROP 


LOST MOL DURING SEARCH, OPI IS NOT SET 


PIP STIL SET AFTER SEARCH 


PARITY ERROR OCCURRED WHILE WRITING REMOTE 
REGISTERS BUT MXF DID NOT SET 


MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA 
COMMAND STARTED 


“OPI'' ERROR DURING DATA TRANSFER BECAUSE *™OL"* WAS 


SEQ 0054 
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ERROR POINTER TABLE 


070632 
071600 
071724 
072014 


072014 


070726 
071600 
071724 
072014 


070740 


;ERROR 


; ERROR 


;ERROR 


zERROR 


;ERROR 


;ERROR 


302 


304 
EMT304 
EHT1 
EDT1 


ZERO 


"OPI'’ ERROR DURING DATA TRANSFER BECAUSE 1) ON 
jeteee le ouT DROP OR 2) SEARCH TIMED OUT OR 


"*IVC'' ERROR DURING DATA TRANSFER BECAUSE VOLUME 
WAS NOT VALID 


ERRONEOUS "‘IVC’' ERROR DURING DATA TRANSFER = VOLUME 
IS VALID 


"ILR'’ ERROR DURING DATA TRANSFER 


*"*ILF** ERROR DURING DATA TRANSFER 


RMR’ ERROR DURING DATA TRANSFER 


SEQ 0055 


004642 


072014 


071724 
072014 


070776 


072014 


071026 


~ 


;ERROR 


;ERROR 


;ERROR 


;ERROR 


ERROR 


;ERROR 


3 ERROR 


EFT1 


306 


310 


313 


5 
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ERROR POINTER TABLE 


INCORRECT “‘IAE*' STATUS DURING DATA TRANSF 


""SKI'' ERROR DURING DATA TRANSFER 


DRIVE DID NOT DETECT SKI ERROR DUE TO CYL 


DEVICE FAULT DURING DATA TRANSFER 


LOSS OF BIT CLOCK DURING DATA TRANSFER 


LOSS OF SYSTEM CLOCK DURING DATA TRANSFER 


UNSAFE ERROR DURING DATA TRANSFER (DVC 


ER 


INDER 


= 0) 


Am 





F 
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ERROR POINTER TABLE 


625 
$68 sERROR 314 DRIVE TIMING ERROR DURING DATA TRANSFER 
004734 071104 EMT314 
004736 071600 EHT1 
004740 071724 EDT1 
004742 072014 EFT1 
628 
° 9 s7RROR 315 WRITE LOCK ERROR 
004744 071116 EMT315 
004746 1600 EHT1 
004750 071724 EDT1 
004752 072014 EFT1 
631 
O36 sERROR 316 ERRONEOUS WRITE LOCK ERROR 
004754 071130 EMT316 
004756 071 
004760 071724 EDT1 
004762 072014 EFT1 
634 
iH sERROR 317 HEADER CRC ERROR DURING DATA TRANSFER 
004764 071142 EMT317 
004766 071600 EHT1 
004770 071724 EDT1 
004772 072014 EFT1 
637 
638 sERROR 320 FORMAT ERROR DURING DATA TRANSFER 
004774 071152 EMT320 
004776 71600 
005 071724 EDT1 
005002 072014 EFT1 
640 
) sERROR 321 HEA ER COMPARE ERROR DURING DATA TRANSFER 
005004 071162 EMT321 
005006 tat sg EHT1 
005010 071724 EDT! 
005012 072014 EFT1 
643 
ya sERROR 322 HEADER ERRORS SHOULD NOT BE SET 
005014 Orns EMT322 
00016 71 EHT1 
5020 071724 EDT1 
005022 072014 EFT1 





ao 
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ERROR POINTER TABLE 


71 a4 
71724 
072014 


or 200 


071210 
071600 
071724 
072014 


071222 
071600 
071724 
072014 


ERROR 


3 ERROR 


ERROR 


sERROR 


sERROR 





323 


DATA CHECK ERROR DURING DATA TRANSFER 


CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER 


DATA PARITY ERROR DURING READ COMMMAND 


OFFSET MODE NOT RESET BY WRITE COMMAND 


DATA PARITY ERROR DURING WRITE COMMAND 


WRITE CLOCK FALURE DURING WRITE COMMAND 





UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER ; 
| 


“wo 


S358 
Aan 
de 3 
UU 
NOS 


07 
071724 
072014 


071336 


071600 
071724 
072014 


071354 
071600 
071724 
072014 


071374 
071662 
071760 
072050 


071414 
071666 
07176 

072050 


: ERROR 


ERROR 


7 ERROR 


;ERROR 


332 


334 


336 


H 5 ne 
NL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 8-31 SEQ 0059 | 


DATA LATE ERROR DURING DATA TRANSFER 
PIP STIL SET AFTER DATA TRANSFER = SKI = 0 


LOST MOL DURING DATA TRANSFER = OPI = 0 


DATA READ DOES NOT COMPARE WITH DATA WRITTEN 
WRITE CHECK ERROR NOT DETECTED 
WRITE CHECK ERROR AT UNEXPECIED ADDRESS 


| 
LOST VOLUME VALID DURING DATA TRANSFER = IVC =O © 
INCORRECT DATA DURING WRITE CHECK ERROR 


—o 
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ERROR POINTER TABLE 


1 


90 
Bear 
1 


ye 


72050 


071724 
072014 


071446 
071600 
071724 
072014 


071460 
071706 
072000 
072070 


071472 
071600 
071724 
072014 


071502 


; ERROR 


zERROR 


zERROR 


;ERROR 


344 


346 


347 


“"IVC’’ ERROR NOT DETECTED DURING DATA TRANSFER 


“FER"' NOT DETECTED DURING DATA TRANSFER 


“HCE’* NOT DETECTED DURING DATA TRANSFER 


*BSE"' NOT DETECTED DURING DATA TRANSFER 


HEADER ERROR WAS DETECTED W/ HCI SET 


DATA TRANSFER NOT ARORTED W/ COMP ERROR SET 


LOST VOLUME VALID DURING SEARCH - “‘IVC’* = 0 


sERROR 351 "ATA" DID NOT SET DURING SEARCH 


sERROR 352 PROGRAM TIMEOUT WHILE TESTING RMLA 


sERROR 353 LOOK AHEAD TEST FAILS 


sERROR 354 BSE SHOULD NOT BE SET 


3PUT ERROR TABLE HERE 





mo 
PF 








& 


" 
1 
g 
5 
; 


Pononon 2 2 SS a 
KIS OO NAME Wi —OOOo 


24 


~m 
w 


RM80 
E USA 


EC TH PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 9 

.SBTTL ERROR TABLE USAGE 

:THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR 

; EMT = ERROR MESSAGE TAALE ADDRESS 

: EHT = ERROR HEADER TABLE ADDRESS 

; EDT = ERROR DATA TABLE AD 

; EFT = ERROR FORMAT TABLE ADDRESS 

3 THE EMT ENTRY 1S THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS 
FOR THE PARTICULAR ERROR. EACH ERROR MESSAGE TABLE LISTS THE ADDRESS 
[OF ONE OR AR OAE ERROR PIESSAGE STRINGS WHICH ARE 10 BE FORMATTED AND 
‘TYPED BY THE ERROR TYPE SUBROUTINE. IF THE EMT ENTRY IS ZERO, THERE IS 

3NO MESSAGE TO BE TYPED FOR THE ERROR. 

‘SIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES 

SOF HEADER: DATA AND FORMAT INFORMSTION FOR A GIVEN ERROR. EACH ENTRY 

IN THE ERROR HEADER TABLE MAY Sx MAY NOT HAVE AN ASSOCIATED LINE OF 

DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND 
‘HEADER. THAT IS, A HEADER LINE MAY BE PRINTED WITHOUT ANY DAT 

BUT A BATA LINE I$ NOT PRINTED WITHOUT A HEADER, AND EACH PATA’ LINE 

;MUST ALSO HAVE A FORMAT. 

IN SUMMARY, 

; EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE, 

: EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS 

: OF MESSAGE STRINGS” HEADERS, DATA OR FORMAT. 





Tt 


ef 


Ssss $888s 
Van MUM 
SEER WW 
Meee WN 
Coo BNOO 


No 


Nonronon 3 2 eS 2 oe 
WS SODNANE WW OOON 





012737 
000402 
005037 

40 


0002 

005227 
001375 
000005 


012737 


+ epee peees 

232 SS 
NIWIWNNINWW 

NNN 


oo= 

oo 
N 

WW 


005360 


177777 


001330 
000000 


001114 
001154 
001100 
057114 


000001 
005576 
005604 

0004 
05652 
77570 
77570 
77777 


00565 
17757 
17757: 
17777 


001330 


000020 


173306 


;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS 
3 SAVE PC WHERE THE TIME OUT OCCURED 
;ADJUST P 


sPUT "HALT(0)* INSTRUCTION HERE IF YOU WISH 


TO STOP ON UNEXPECTED TIMEOUT. 


sTTY LOOP, WAIT FOR INCREMENT 


yt LOCATION TO — 


7 SCENT” » oon FOR ERROR ROUTINE 


ND-OF -PROGRAM 


dys pVECTOR FOR TRAP CALLS 


WW ONE ERROR PER 
Haat, THE LOOP ADDRESS FOR SCOPE 
LOOP ADDRESS 


E SWICH REGISTER 


FOR A HARDUAR 
A_HARDWARE et il ye 


E SwWR 
TIMEOUT TRAP OCCURRED 
E SWR IS NOT = -1 


BADTMO: mov (SP) ,RO 5 
CMP (SP)+, (SP)+ RESTORE STACK POINTER 
TYPE 65$ 33 TYPE ASCIZ STRING 
4$ [GET OVER THE ASCIZ 
i $58: ~ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT, PC=/ 
v RO,-(SP) :SETUP FOR TYPING OUT PC 
TYPOC 
.SBTTL START OF PROGRAM 
START1: MOV #~-1, CHGADR sCHANGE RH/RM BUS ADDRESS 
BR START2 
START: CLR CHGADR ZNO CHANGE IN ADDRESS 
START2: NOP 
INC #0 
BNE - ° OF 
RESET SRESET THE WORLD 
.SBTTL INITIALIZE THE COMMON TAGS 
7:CLEAR THE COMMON TAGS ($CMTAG) AREA 
MOV G,R6 
CLR 6)+ :3CLEAR MEMORY LOCATI 
CMP SWR,R6 
BNE 6 +: LOOP RACK IF NO 
WSTACK, SP ::SETUP THE STACK POINTER 
; INITIALIZE A FEW VECTORS 
#SSCOPE, aa LOTVEC 2107 VECTOR FOR SCOPE ROUTINE 
HOV #34 0, a#iOTVEC+2 ::L 
MOV aS ERROR STEHT 
MOV #340, a#EMTVEC 33 
MOV ASTRAP,@ATRAPVEC : 
MOV #340, @ATRAPVEC+2; iéve 
MOV DN, a#PWRVEC :; POWER FAILURE VECTOR 
MOV 4340, aePWRVEC+2 s3LEVEL 7 
MOV SENDCT,SEOPCT :: atts 
CLR STIMES 
CLR SCAPE 33CLEAR T 
MOVB = #1, SERMAX LLOW 
MOV #.»$LPAD 
MOV *SLPERR * SET 
:iSI7E FOR A HARPARE SuITCH REGISTER. F NO 
S:EQUAL TO A ‘‘=1' FOR A tp TuARE: SWITCH REGISTER. 
MOV “TESAVE ERROR V veCT OR 
MOV H64S, Sia vec [:SET UP ERROR V 
MOV DSWR,S 33SET 
MOV spp SP DISPLAY SAND A 
CMP #-1,aSWR 33 TRY TO REFERENCE HAR 
BNE S:BRANCH IF NO 
S:AND THE HARDWAR 
BR 65$ + BRANCH IF NO TIMEOUT 


m 5 
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TNITIALIZE THE COMMON TAGS 
005652 012716 005660 64$: MOV #65$, (SP) :;SET UP FOR TRAP RETURN 
005656 00 RTI 
005 012737 000176 001154 65$: MOV #SWREG,S z:POINT TO SOFTWARE SUR 
005666 012737 000174 001156 MOV aISPREG. BISPLAY 
005674 012637 §00006 66$: MOV (SP)+,a#ERRVEC ;:RESTORE ERROR VECTOR 
005700 005037 001230 CLR SPASS s:CLEAR PASS COUNT 
005704 132737 000200 001243 BITB #APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
005712 001403 BEQ 67$ *YES,USE NON-APT SWITCH 
905714 012737 001244 (01154 ee MOV #SSWREG, SUR tINO,USE APT SWITCH REGISTER 
24 SSETUP “'TIMEQUT’’ TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
55 005722 012737 005344 000004 MOV WBADTMO,ERRVEC ;SETUP FOR UNEXPECTED TIMEOUT 
26 005730 012737 000300 000006 MCV WPR6,ERRVEC+2 LEVEL 6 
28 .SBTTL TYPE PROGRAM NAME 
A ::TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
005736 005227 177777 INC #1 s:FIRST TIME? 
005742 001033 BNE 68$ BRANCH IF NO 
005744 022737 031402 000042 CMP WSENDAD #42 =; ;ACT~11? 
005752 001427 BEQ 68$ BRANCH IF YES 
005754 104401 005762 TYPE ~,69$ iE TYPE ASCIZ STRING 
005760 000424 BR 68$ T OVER THE ASCIZ 
swaths 5698: ,ASCIZ <CRLF>@CZRNEAO - *BRBO OYACTIONAL® TEST, PT 2@<CRLF> 
.SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
006032 005737 000042 TST aH42 33ARE WE RUNNING UNDER XXDP/ACT? 
006036 001012 BNE 70$ BRANCH 
006040 123727 001242 000001 CMPB ss SENV, #1 TZARE WE RUNNING UNDER APT? 
006046 001406 BEQ S:BRANCH IF YES 
006050 023727 001154 000176 CMP SWR ,ASWREG +:SOFTWARE SWITCH REG SELECTED? 
006056 001005 BNE 71$ * :BRANCH IF N 
104407 GTSWR t:GET SOFT-SWR SETTINGS 
006062 000403 BR 1$ 
006064 112737 000001 001150 70$: # MOVB #1,$AUTOB 33SET AUTO-MODE INDICATOR 
cs 006072 71$: 
30 ;THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE: 
31 *PAPER TAPE (MANUAL), ACT11, XXDP CHAIN OR DUMP 
33 006072 005037 001332 CLR XXDP CLEAR "xxpp* LOAD DEVICE STORAGE 
34 006076 122737 000016 000041 CMPB «#16, #41 SLOADED FROM AN RM80 ? 
5 006104 901121 BNE ‘BR 
006106 013737 000040 001332 MOV a#40,XXDP :GET DEVICE. INDICATOR AND NUMBER 
37 006114 122737 000007 001332 CMPR #7, XXDP § IT D NUMBER 
38 006122 10300 BHIS 1$ ‘ves 
39 006124 105037 001332 CLRB  XXDP ‘NO, DEFAULT TO DRIVE 0 
40 006130 005737 000042 1$: TST aht42 : CHAIN MODE OR ACT11 AUTO ACCEPT ? 
41 006134 001425 BEQ 2$ [BR IF NEITHER 
42 006136 104401 006144 TYPE 73$ ie TYPE ASCI STRING 
006142 000412 BR 723 GET over THE ASCIZ 
-:73$: -ASCIZ <CRLF>/NOT TESTING DRIVE / 
006170 72$: 
43 006170 005046 CLR ~(SP) :CLEAR WORD ON STACK 
44 006172 113716 001332 MOVB —«XXDP, (SP) 'GET DRIVE ADDRESS 
45 006176 104403 TYPOS STYPE THE ADDRESS 
0062 001 .BYTE 1 SONLY 1 CHARACTER 


iam 


38 
z 
z 
3 


VINUIN &  & 
UNS oaN 


80 006416 
81 


; a ssn 
Nome SVERN 


a 


LESRALLESELSE ALAS 


S555 


m 
wn" 
© 
an 


000 
104401 


616760 


03782 


CRO V04.00 
it it CH REGISTER 
001217 
177777 
006224 
001332 
006264 
000042 
000377 001300 
000200 001243 
001276 
064504 
065004 001300 
001217 
064676 
009019 000010 
1 
10000 000010 
004000 000000 
Ogs3ce 32 
00 26 
024026 000026 
064527 


2s: 


51035 


$$: 


sCHECK FOR AUTO MODE OR cecomessge MODE 
TST arse 


;76$: 


5 


Seated 16:38:23 PAGE 10-2 


BYTE zSUPRESS LEADING ZEROS 
TYPE SCRLF CR 
$$ [GET NUMBER OF DRIVES 
INC ast sFIRST TIME THRU HERE ? 
TYPE 75$ TYPE ASCIZ STRING 
243 °GET OVER THE ASCIZ 
,ASCIZ <CRLF>/TO TEST a: / 
CLR -(SP) :CLEAR WORD ON STACK 
MOVB = XXDP,, (SP) 3GET DRIVE ADDRESS 
TYPOS “TYPE DRIVE ADDRESS 
.BYTE 1 SONLY 1 CHARACTER 
“BYTE 0 :SUPRESS LEADING ZEROS 
TYPE 76$ 3 TYPE A ASCIZ STRING 
BR “GET OVER THE ASC 
,ASCIZ 7, HALT PROGRAM, CLEAR LOC. 4 AND sESTART PROGRAM. /<CRLF> 


UNNING IN AUTO MODE ? 
i, DEVICE MAP FOR ALL DRIVES 


STANDALONE 


BEQ 
MOV #377, $DEVM 


9, eat IS RUNNING IN AUTO MODE = SEE °F SIZING IS ALLOWED 


1$: 


BITB #BI1T7,S$ENVM rSIZING ALLOWED ? 
BNE 12$ 3NO 
CLR 1 START | FROM DRIVE 0 
MOV $BASE ,RO sLOAD THE BASE ADDRESS 
TYPE  ,SYSTAT STYPE "UNIT STATUS: ° 
BITB  ATNTBL(R1),$DEVM :1S DEVICE PRESENT IN MAP ? 
BEQ 11$ :BR IF NO 
TYPE $CRLF CRLF 
MOV R1,-(SP) 33 SAVE R1 FOR TYPEOUT 
TYPOS TYPE=-OCTAL ASCII 
.BYTE 2 i TYPE 2D ) 
“BYTE 0 UPPRESS LEADING ZEROS 
TYPE ,BLNKS4 at) YPE 4 BLANKS 
MOV #CLR,RMCS2(RO) ;:CLEAR MASS BUS 
MOV R1,RMCS2(RO)  :LOAD THE DRIVE ADDRESS 
TST S(RO) SACCESS DRIVE REGISTER 
BIT #NED,RMCS2(RO) 31S DRIVE PRESENT 7? 
BNE :BR IF NO 
BIT WDVA,RMCS1(RO) 1S DRIVE AVAILABLE ? 
BEQ 4 7BR IF NO 
MOV 0,108 TASSUME RMBO DEVICE 
CMP #20026,RMDT(RO) SINGLE PORT ? 
5EQ ‘BR IF YES 
CMP #24026, RMDT(RO) :DUAL PORT RM8O ? 
BEQ sBR IF YES 
TYPE NOTRM ‘DRIVE NOT AN RM8O 

S$ SCHECK NEXT DRIVE 


SEQ 0065 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


SEQ 0066 


lm | 


98 006526 032760 010000 000012 2%: BIT WMOL.RMDS(RO) :1S MEDIUM ON LINE ? 

99 006534 00141 BEQ 6$ :BR IF NO 

100 006536 00041 7$ 

10@ 006540 104401 064561 3$: TYPE NOTPRS :DRIVE NOT PRESENT 

103 006544 000402 BR §$ SCHECK NEXT DRIVE 

105 006546 104401 0645 4$: TYPE  ,NOTAVL__ :DRIVE NOT AVAILABLE 

106 006552 146137 065004 001300 5$: BICB  ATNTBL(R*),S$DEVM. AR DEVICE FROM BIT MAP 
107 006560 000425 11$ CHECK next DRIVE 
409 006562 104401 064615 6S: TYPE —, UNTOFF :DRIVE OFFLINE 

110 006566 146137 065004 001300 BIC5  ATNTBL(R1),$DEVM” “CLEAR DEVICE FROM BIT MAP 
11 006574 000413 BR 9$ :PRINT DRIVE TYPE 

113 006576 005737 001332 7$: TST XXDP ZLOADED FROM RM8O ? 

114 006602 001406 BEQ 8S :N 

115 006604 123701 001332 CMPB —s- XXDP,,R1 1S THIS THE DRIVE ? 

116 006610 001003 BNE “BR IF 

117 006612 104401 064544 TYPE LODEV :DRIVE IS LOAD DEVICE 

118 006616 000755 5$ 

120 006620 104401 064626 8$: TYPE §_,UNTON DRIVE ONLINE 

121 006624 104401 064700 9$: TYPE §,BLNKS2 2 BLANK ANKS 

122 006630 104401 TYPE ‘PRINT DRIVE TYPE 

123 006632 000000 10$: .WORD 0 SMESSAGE ADDRESS HERE 

125 006634 005201 11$: INC R1 s INCREMENT THE DRIVE ADDRESS 
126 006636 020127 000007 CMP R1,47 TALL DR IVES ARE CHECKED 

ie 006642 00366 BLE 1$ : H IF NOT 

129 906644 104401 001217 12$: TYPE  ,$CRLF CRLF 

130 0946650 000137 007332 JMP €MNSTART : JUMP TO COMMON START 





2 oe 
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STANDALONE INPUT ROUTINES 


— 


-SBTTL STANDALONE INPUT ROUTINES 





006654 STANDALONE : 
4 006654 004737 061330 JSR PC, $TKINT s INITIALIZE CONSOLE 
6 006660 005227 177777 INC #~1 sFIRST TIME THRU HERE ? 
i 006664 001023 BNE 2$ 'BR IF NO 
2 ;SEE IF OPERATOR WANTS HELP TEXT 
11 104401 063550 TYPE ,MSHELP :WANT HELP ? 
le 006672 104411 RDCHR :GET RESPONSE 
13 006674 012637 001176 MOV (SP)+,$TMP1 “SAVE AND ECHO RESPONSE 
14 006700 123727 001176 000131 CMPB ss STMP'1,#°Y *WAS IT A YES RESPONSE ? 
15 006706 001005 BNE 1$ : 
16 006710 104401 001176 TYPE  ,$TMP1 STYPE 'y* 
17 006714 104401 101716 TYPE HELP [YES = TYPE HELP TEXT 
18 006720 000414 BR S$ 
19 006722 104401 064672 1$: TYPE |N sTYPE 'N' 
20 006726 104401 001217 TYPE $CRLF >CR-LF 
21 006732 000407 R $$ 
23 >SEE IF USER WANTS TO CHANGE UNIBUS ADDRESS 
24 006734 3$: 
25 006734 005737 001330 TST CHGADR :CHANGE RH/RM BUS ADDRESS ? 
26 006740 001457 BEQ 7$ BR I 
27 006742 005037 001330 CLR CHGADR ‘NO CHANGE NEXT TIME 
28 006746 104401 001217 TYPE  ,S$CRLF CRLF 
30 mares DIALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY 
32 006752 104401 064161 TYPE CNSLO1 sTYPE CURRENT BUS ADDRESS 
33 006756 013746 001276 MOV $BASE ,- (SP) +;SAVE $BASE FOR TYPEOUT 
006762 104402 TYPOC +:G0 TYPE--OCTAL ASCII(ALL DIGITS) 
34 006764 104401 064700 TYPE  ,BLNKS2 :TYPE 2 BLANKS 
35 006770 104413 NDOCT *GET NEW BUS ADDRESS 
36 006772 012637 001176 MOV (SP)+,$TMP1 [CARRIAGE RETURN ? 
7 006776 001412 BEQ 5$ TYES-SKIP TO NEXT ENTRY 
007000 022737 160000 001176 CMP #160000,$TMP1 BASE ADDRESS IN I/O PAGE ? 
39 007006 101403 BLos 4 :Y 
40 007010 104401 064171 TYPE CNSLO2 [TYPE WARNING MESSAGE 
41 007014 000756 BR [TRY AGAIN 
42 007016 013737 001176 001276 4$: MOV STMP1,$BASE “STORE NEW BUS ADDRESS 
44 007024 104401 064233 5$: TYPE ,CNSLO3 
45 007030 005046 CLR =(S 
46 007032 113716 001272 MOVB = $VECT1, (SP) GET CURRENT VECTOR ADDRESS 
47 007036 104402 TYPOC 
48 007040 104401 064700 TYPE ,BLNKS2 :TYPE 2 BLANKS 
007044 104413 RDOCT [GET NEW VECTOR ADDRESS 
50 007046 012637 001176 MOV (SP)+,$TMP1 [CARRIAGE RETURN? 
51 007052 1g12 BEQ 7$ *YES-SKIP TO NEXT ENTRY 
32 007054 022737 001000 001176 CMP #1000, $TAP1 *VECTOR ADDRESS < 1000 ? 
53 007062 101003 BHI YES! ! 
54 007064 104401 064242 TYPE CNSLO4 * TYPE WARNING MESSAGE 
55 007070 000755 BR § SRETRY 
56 007072 113737 001176 001272 6$: MOVB $TMP1,$VECT1 :STORE NEW VECTOR ADDRESS 








ao 


81 
82 007220 


92 007266 
4 007272 


95 007274 


99 20 
100 007322 
101 007326 


oss 
~—V 
im 
Nm 


RRA’ 


NAS SOLS 
Narn 


-OoO—— 
s Saoos 
NS NNN 


oo— 


n= 
ww 


MRO 


UNNON— 


— 

3 3888 

> nN 
Lene 

= rRorrvwr 


“a4 
mM 
5 


n“ 


177777 
064276 
001217 
001300 
064462 


001176 
001176 


063534 
000377 
006364 
001176 


001176 
001176 


001176 


001176 
001176 


063545 
001176 
001176 
001176 


064440 


001176 
17 
06 
000377 


001217 
006364 


000101 


001300 


000015 


000060 


000067 


000015 


000060 
000067 


001300 
001300 


7$ 


8$: 
9$: 


10$: 


11$: 


12$: 


13$: 


14$: 


piace I sat hin NUMBERS 
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sFIRST TIME THRU ? 


RE ‘BR IF NO 

»CNSLO7 [TYPE INPUT INSTRUCTIONS 
SCRLF CRLF 

DEVA SCLEAR DEVICE MAP 
»MSDRVS STYPE "DRIVE(S): ° 
(SP)+,$TMP1 :GET RESPONSE 
STMP1.#°A SIS INPUT "A" ? 

ALL *YES, TYPE "‘ALL'’ AND GO 
#377, $DEVM ‘SET DEVICE MAP FOR ALL DRIVES 
xS12Z tAUTO SIZE. 
STMP1,A#CR :CARRIAGE RETURN ? 

12$ sYES 

$TMP1 SECHO RESPONSE 
STP .#"0 ‘NUMBER < 0 ? 
SINP.#*7 :NUMBER >7? 

12$ ‘ILLEGAL INPUT 
(SP)+,$TMP1 :GET RESPONSE 
STMP1,ACR SCARRIAGE RETURN ? 
»COMMA sTYPE ', ° 

$TMP1 SECHO RESPONSE 
$TMP1,#°0 :NUNBER <0? 
STMP1,#'°7 :NUMBER >7? 

CNSLOB STYPE "* 2ILLEGAL INPUT"' 
$$ SRETRY 
STMP1 RI 3R1 = DRIVE NUMBER 


#°C7,R1 
ATNTBL(R1),SDEVM sSET DEVICE IN MAP 
#377, $DEVM ? 


o SCRLF 
XSIZ 


CRLF 
760 SIZE DEVICES 





SEQ 0068 


— 
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STANDALONE INPUT ROUTINES 
1 sASSEMBLE TEST QUE FROM DEVICE MAP 
: 0073 CMNSTART: 
0073 104401 064636 TYPE DRIVES sTYPE "DRIVE(S) TO BE TESTED’ 
4 007 013700 001300 MOV $DEVM,RO :RO = DEV 
5 007342 001004 BNE 1$ tBR IF DRIVES TO TEST 
§ 007 4 104401 063545 TYPE COMMA :TYPE ', ° 
007350 104401 064665 TYPE §§,NONE ‘TYPE "NONE® 
8 007354 012701 001470 1$: MOV HTSTQUE+2,R1  -:R1 = ADDRESS OF FIRST ENTRY IN QUE 
9 007 010137 001466 MOV R1,TSTQUE S INITIALIZE ENTRY POINTER 
10 007364 912702 000001 MOV #1,R2 tR2 = DEVICE POINTER 
11 007370 00500 CLR R3 :R3 = DEVICE NUMBER 
lg 007372 950200 2$: BIT R2,RO t1S THIS DEVICE IN MAP ? 
13 007374 00141 BEQ 3$ “NO !! 
14 007376 104401 063545 TYPE COMMA :TYPE *, ° 
15 007402 010311 MOV R3,(R1) SYES = ENTER DEVICE NUMBER IN QUE 
16 007404 010346 MOV R3,-(SP) +;SAVE R3 FOR TYPEOUT 
007406 104403 TYPOS £:G0 TYPE=-OCTAL ASCII 
007410 001 .BYTE 1 S: TYPE 1 
007411 000 “BYTE 0 *: SUPPRESS LEADING ZEROS 
17 007412 116361 065004 000001 MOVB ATNTBL(R3),1(R1):ENTER ATTENTION BIT IN QUE 
18 007420 062701 000002 ADD #2,R1 TADVANCE ENTRY POINTER 
19 007424 006302 3$: ASL R2 TADVANCE DEVICE POINTER 
20 007426 105702 TSTB = R ‘DONE AIL DEVICES ? 
21 007430 00140¢ BEQ 4$ ZYES 
22 007432 00520 INC R3 SADVANCE DEVICE NUMBER 
23 007424 000756 BR 2$ TENTER NEXT DEVICE 
24 007436 005011 4$: CLR (R1) S TERMINATE TEST QUE 
35 007440 104401 001217 TYPE  ,S$CRLF CRLF 
27 :SIZE FOR CLOCK 
28 007444 004737 036234 JSR PC, SIZCLK :SEE IF CLOCK PRESENT 
29 007450 000425 BR 6$ YES = CLOCK IS PRESENT 
30 007452 104401 007460 TYPE 65$ t:TYPE ASCIZ STRING 
007456 000413 BR 645 3GET OVER THE ASCIZ 
sie 4958: ,ASCIZ <CRLF>/NO '"L* OR’ *P* CLOCK/ 
31 007506 005737 000042 TST an42 ZANY MONITOR PRESENT ? 
007512 001002 BNE 5$ [BR IF YES 
33 007514 000137 005434 JMP START : JUMP TO START 
34 007520 000137 031372 5$: JMP $GET42 SRETURN CONTROL TO MONITOR 
35 007524 6$: 
37 007524 000240 READY: NOP sREADY TO START TEST 
38 007526 105737 001300 TSTB = SDEVM TANY DRIVES IN MAP ? 
9 007532 091007 BNE ‘BR IF YES 
40 007534 005737 000042 TST an42 SANY MONITOR PRESENT ? 
41 007540 901002 BNE 1$ 7BR IF YES 
42 007542 000137 005434 JMP START ‘JUMP TO START 
43 007546 000137 051372 1$: JMP $GET42 *RETURN CONTROL TO MONITOR 
45 007552 105037 001116 2$: CLRB ss STSTNM :RESET TEST NUMBER 
46 007556 005037 001206 CLR STIMES S INITIALIZE NUMBER OF ITERATIONS 
47 007562 005037 001326 CLR CTLFG *CLEAR CONTROL-C FLAG 
8 007566 005077 001512 CLR EDENB “CLEAR MEDIA E 
49 007572 004737 061330 JSR PC, $TKINT S INITIALIZE TTY 
50 007576 012746 000240 MOV #PRS,-(SP) ::PUT NEW PS ON STACK 
007602 012746 007610 MOV #64$,-(SP) t:PUT NEW PC ON STACK 





ae 
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ANDALONE INPUT ROUTINES 
oorets 000002 RTI ::POP NEW PC AND PS 
51 007610 117737 171652 001234 MOVB  aTSTQUE,SUNIT ;LOAD DRIVE NUMBER 
26 ZCLEAR MASSBUS CONTROLLER, SELECT DRIVE AND SET LAST TRACK ADDRESS 
mA 007616 913700 001276 MOV 3RO = UNIBUS ADDRESS 
25 00762 12760 000040 000010 MOV #CLR E mcS2 (RO) :CLEAR MASSBUS 
56 007630 113760 001234 000010 MOVB = $UNIT RMICS2(RO) *SELECT DEVICE UNDER TEST 
2 007636 012737 006400 001334 MOV HTAa! aad TA1,LSTRK :SET LAST TRACK = 13. 
59 :TYPE DRIVE NUMBER TO BE TESTED(SUNIT) 
60 007644 104401 001217 TYPE +SCRLF CRLF 
61 007650 104401 064476 TYPE SGDR :TYPE "DRIV 
62 007654 013746 001234 MOV SUNIT (SP) SAVE rt FOR TYPEOUT 
S: TYPE DRIVE NUMBER 
007660 104403 TYPOS 3:60 TYPE=-OCTAL ASCII 
007662 0 BYTE 2 2s TYPE 2 (S$) 
007663 “BYTE 0 ; ESS LEADING ZEROS 
63 007664 005004 CLR RG * THESE TWO LOOPS ARE ADDED TO 
007666 005304 DEC R4 “WAIT FOR TTY 
65 007670 001376 BNE 72 
66 007672 005304 DEC R4 
67 007674 001376 BNE 72 


oe 
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STANDALONE INPUT NES 
1 
2 FERRARA RAAARAAAAA RRA AAEREEAERAERARRARRRARERERRRRRRRERERE RRS» an 
SeTEST 1 CONTROLLER ACCESS TEST 
© RARE AAAAAERARAAEREREEEEEAREEERARAAEAEARAAEERRAERARAEAERERERERREREE 
007676 $11: 
007676 000004 SCOPE :SCOPE CALL 
007 00 909240 SSTART OF TEST 
007702 01 901100 MOV #STACK, SP S INITIALIZE STACK POINTER 
007706 013700 001276 MOV $BASE ,RO :RO = UNIBU s 
007712 013701 001466 MOV TSTQUE,R1 7(R1) = DEVICE BEING TESTED 
; 007716 012737 000001 001226 MOV #1,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
4 007724 005001 CLR R1 
5 007726 013746 000004 MOV ERRVEC,<(SP) _ : ;PUSH ERRVEC ON STACK 
007732 013746 000006 MOV ERRVEC+2,=(SP) :;PUSH ERRVEC+2 ON STACK 
6 007736 01273 010040 000004 MOV # é 
7 007744 012737 000300 000006 MOV #PR6, ERRVEC+2 
9 007752 110160 000001 MOVB  R1,RMCS1+1(RO) ;MOVE HI BYTE TO RMCS1 
10 007756 010160 900002 MOV R17. RMWC (RO) [MOVE WORD COUNT REGISTER 
11 007762 916002 00000 MOV RMUC (RO) ,R2 
lg 007766 010160 000004 MOV R1,RMBA(RO) :MOVE BUS ADDRESS REGISTER 
13 007772 016002 000004 MOV RMBA(RO) ,R2 
14 007776 016046 000010 MOV RMCS2(ROS ,=(SP) ::PUSH RMCS2(RO) ON STACK 
15 010002 010160 000010 MOV R1,RMCS2(RO) | ;MOVE CONTROL STATUS REGISTER 
16 910006 016002 000010 MOV RMCS2(RO) ,R2 
17 010012 012660 000010 MOV (SP)+,RMCS$2(RO) >:POP STACK INTO RMCS2(RO) 
18 010016 010160 000022 MOV R1,RMDB(RO) :MOVE DATA BUFFER 
19 010022 016002 000022 MOV RMDB(RO) ,R2 
20 910026 012637 000006 MOV (SP)+,ERRVEC+2 ::POP STACK INTO ERRVEC+2 
010032 012637 000004 MOV (SP)+°ERRVEC | ;;POP STACK INTO ERRVEC 
21 010036 000417 BR 3$ *NO BUS TIMEOUT OCCURRED 
23 010040 022626 1$: CMP (SP)+, (SP)+ sADJUST STACK 
24 010042 012637 000006 MOV (SP) +, ERRVEC+2 7:POP STACK INTO ERRVEC+2 
010046 012637 000004 MC / (SP)+-ERRVEC | :;POP STACK INTO ERRVEC 
25 010052 104110 EMT 110 
26 010054 005737 000042 TST ans2 :STAND ALONE MODE ? 
27 010060. 00100¢ BNE $ NO! ! 
28 010062 000137 005424 JMP START1 SYES-GO GET $BASE 
910066 005037 001300 2s: CLR SDEVM “FUDGE NO DRIVES IN MAP 
010072 000137 031372 JMP $GET42 [RETURN CONTROL TO MONITOR 
3 010076 3$: 
3 Z » TEST 2 RARER ARERERAEEERERAAEAAEAEAEAEEAEAERAAEAERAEAEEEREAEEEKEEE 
Z*TEST 
ee RARE AARERAEERERREEEEEEERERERRAERERAERERAREREREAERERERAEEEAREE 
010076 $12: 
010076 000004 SCOPE SCOP L 
010100 900240 NOP SSTART OF TEST 
010102 if 06 0011 MOV #STACK, SP S INITIALIZE STACK POINTER 
010106 013700 001276 MOV $BASE ,R ‘RO = UNIBUS ADDRESS 
010112 013701 001466 MOV TSTQUE R1 ?(R1) = DEVICE BEING TESTED 
010116 012737 000002 001226 MOV #2, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
36 010124 012737 000000 001444 MOV #0,RMOFO :18 BIT FORMAT 
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FORMAT 
7 g1013 1$: 
10132 012737 001057 1446 MOV #559. ,RMDCO i CYLINDER, = = 559. 
10140 012737 001 142 MOV aTAe RMDAO TRACK = 2, SECTOR = 0 
40 010146 012737 177376 001414 MOV #-258.,RMWCO 32 + or} WORDS (2°S COMP) 
41 010154 012737 101716 001416 MOV #BUFONE,RMBAO DATA BUFFER ADDRESS 
4@ 010162 012737 $0088 001412 MOV #WH,RMCS10 SWRITE HEADER AND DATA 
44 ;VERIFY THAT SECTOR IS NOT BAD 
010170 004737 032406 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
010174 000405 760 TO 2$ I F NO ERROR 
910176 104401 063446 TYPE ,SCTMSG :TYPE BAD tect OR MESSAGE 
1020 104000 EMT SERROR # DEFINED BY BADSCT SUBROUTINE 
- 919 04 000137 011010 1 JMP 23$ +60 TO 23$ IF ERROR + 
46 $10510 012737 065116 001174 MOV #ZEROS-$THPO sUSE ALL ZEROS DATA PATTERN 
47 010216 012737 001176 MOV 1,$TMP 
48 910224 034640 JSR pC +S TNOUF :G0 GENERATE DATA BUFFER 
49 0102 3$: 
51 PREPARE DEVICE FOR DATA TRANSFER 
52 019230 004737 031456 JSR PC, TSTPRP : PREPARE DEVICE FOR TEST 
154130 “WORD 154130 [TASK DESCRIPT FOLLOWS: 
SSELECT DEVICE ‘ VERIFY DEVICE AVAILABLE 
[CLEAR CONTROL Re SELECT DEVICE 
VERIFY SOA TROLE CLEAR OPERATION 
AC Rf VOLUME NOT VALID 
sVERIFY PACK ACKNOWLEDGE 
TE IF SKI" OR "PIP" IS SET 
VERIFY RECALIBRATION 
010236 000404 BR 4$ 360 TO 4$ IF NO ERROR 
010240 000240 NOP “RETURN HERE IF ERROR 
010242 104000 EMT * ERROR rd per ae BY TSTPRP SUBROUTINE 
010244 000137 011010 JMP 23$ 260 TO 23$ IF ERROR 
53 010250 4$: 
55 SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
56 010250 012737 001412 #SEEK .RMCS10 EC Ek 
57 010256 012702 001555 MOV #PUTINX,R2 SWRITE REGISTER INDEX TABLE 
58 010262 112722 000006 MOVB ARADA, (hg) 
59 010266 11 a3 900034 MOVB #RMDC (R 
60 010272 112722 000032 MOVB = ARMOF . ( R)s 
61 910876 11 73 000000 MOVB = #RMCS4 tho)e 
6 010302 112722 000200 MOVB «#200, (R2)+ 
64 010306 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
010312 000404 BR 5$° :G0 TO 5$ IF NO ERROR 
010314 000240 :RETURN HERE IF ERROR 
010316 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
- 910320 000137 011010 a JMP 238 :60 TO 23$ IF ERROR 
66 b103 4 0127 2 900002 MOV #2. Re 700 2 CLOCK CYCLES 
67 010330 0047 036520 6$: JSR IMER SSTART CLOCK TIMER 
68 010334 032777 200 171160 7$: BIT mit’, @CLKADR :TIMER DONE?? 
69 010342 001774 BEQ =NO!! 
0 010344 003308 DEC Re *DEC NUMBER OF CYCLES 
al 010346 00137 SCONTINUE IF NCT DONE 
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T FORMAT ZERO: 


73 010350 012737 000005 001412 MOV #SEEK!GO,RMCS10 ;EXECUTE SEEK COMMAND 

75 010 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
010 000404 BR $s 360 TO 8$ IF NO ERROR 
010 000240 NOP TRETURN HERE IF ERROR 
910 104 EMT ZERROR # DEFINED BY PUT SUBROUTINE 
10 137 011010 JMP 238 0 238 IF E 

7 010374 8$: 

78 sSETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 

79 010374 004737 035450 JSR PC,GETSTS :SETUP FOR STATUS 

80 910400 004737 036356 48R PC; TIMOUT ‘WAIT FOR SEEK TO COMPLETE 

81 010404 9$: 

8 360 READ SEEK STATUS 

84 010404 004737 035534 JSR PC,GET :GO0 READ REGISTER(S) WITH GET SUBROUTINE 
010410 000404 BR 10$ 360 TO 10$ IF iN ERROR 
010412 000240 NOP [RETURN HERE IF ERROR 
010414 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
910416 000137 011010 JMP 23$ 760 TO 23$ IF ERROR 

gs 10422 10$: 

87 ;VERIFY THE RESULTS OF THE SEEK COMMAND 

88 010422 004737 044174 JSR PC, SEKSTS 360 VERIFY RESULTS OF SEEK OPERATION 
010426 000405 BR 11§ :GO TO 11$ IF NO ERROR 
010430 000240 NOP «OP TURN HERE IF ERROR 
010432 104000 EMT ERROR “ DEFINED BY SEKSTS SUBROUTINE 
010434 004736 JSR PC,a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
010436 000137 011010 JMP 23$ :G0 TO 23$ IF ERROR 

89 010442 11$: 

91 ;SETUP AND EXECUTE WRINE HEADER AND DATA C 

32 010442 012737 000063 001412 MOV #WH'GO,RMCS10  ;WRITE HEADER AND DATA 

93 010450 012702 001560 MOV WPUTINK+3,R2  : EXTEND REGISTER INDEX TABLE 

94 010454 112722 000002 MOVB  &#RMWC,(R25+ 

95 010460 113782 000004 MOVB  #RMBA. (R2)+ 

96 010464 112722 000000 MOVB #Rmcst (R2)+ 

44 010470 112722 000200 MOVB #200, (R2)+ 

99 010474 004737 036004 JSR PC, PUT :60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
010500 000404 BR 128 360 TO 12$ IF NO ERROR 
010502 000240 NOP “RETURN HERE IF ERROR 
010504 EMT TERROR # DEFINED BY PUT SUBROUTINE 
010506 000137 011010 JMP 23$ £60 TO 23$ IF ERROR 

100 010512 128: 

102 sWAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

103 010512 004737 036356 JSR PC, TIMOUT WAI; FOR COMMAND TO COMPLETE 

105 010516 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
010522 000404 BR 13$ *G0 70 13$ IF NO ER ROR 
010524 000240 NOP SRETURN HERE IF ERROR 
010526 104 EMT TERROR # DEFINED BY GET SUBROUTINE 
910530 000137 011010 “Ex JMP 238 [60 TO 23$ IF ERROR 


VERIFY RESULTS OF WRITE COMMAND 
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a 
JSR PC,PRIERR 360 CHECK FOR PRIMARY ERRORS 
BR 14$ :GO TO 14$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
ae JMP 23$ *G0 TO 23$ IF ERROR 
JSR PC DTASTS 360 VERIFY RESULTS OF DATA TRANSFER 
BR 15$ *GO TO 15$ IF NO ERROR 
NOP PRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
pe JMP 238 760 TO 23$ IF ERROR 
JSR PC, SECERR 760 CHECK FOR SECONDARY ERRORS 
BR 16$ :G0 TO 16$ IF NO ERROR 
NOP 1 OP TURN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUT INE 
JSR PC,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
JMP 23$ :G0 TO 23$ IF ERROR 
16$: 
;READ HEADER AND | DATA FOR SECTOR JUST WRITTEN 
H!'GO,RMCS10 3READ HEADER & DATA COMMAND 
MOV FEUF S00 RABAD [CHANGE BUS ADDRESS 
JSR PC,PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 17$ 360 TO 17$ IF NO ERROR 
NOP TRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
a JMP 23$ [60 TO 23$ IF ERROR 


zWAIT FOR READ TO COMPLETE AND GE! STATUS 
JSR PC, TIMOUT sWAIT FOR READ TO COMPLETE 


JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 18$ =GO TO 18$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 23$ +60 TO 23$ IF ERROR 

18$: 

:VERIFY THE RESULTS OF READ OPERATION 
JSR FC .PRIERR 360 CHECK FOR PRIMARY ERRORS 
BR 19$ *GO TO 19$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT ERROR ‘ DEF INED BY PRIERR SUBROUT INE 
JSR PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 

_ JMP 238 760 TO 23$ IF ERROR 
JSR PC,DTASTS 360 0 VERIFY RE RESULTS OF DATA TRANSFER 
BR 20$ NO ERROR 
NOP «OP TURN RERE. IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC a(sP)+ 760 BACK FOR MORE ERROR CHECKS 
JMP 23§ *G0 TO 3S IF ERROR 
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034640 


031456 


001444 
001444 


208: 
JSR PC, SECERR :60 CHE Ck FOR SECONDARY ERRORS 
BR 218 0 21$ IF NO ERROR 
NOP £ OP URN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR pC a(sP)+ :G0 BACK FOR MORE ERROR CHECK 
JMP 23$ 760 TO 23$ IF ERROR 
21$: 
:VERIFY DATA 
SR PC, CMPBUF 360 COMPARE WRITE, READ DATA BUFFERS 
.WORD BUFONE SSTARTING ADDRESS OF WRITE BUFFER 
"WORD BUFTWO i STARTING ADDRESS OF READ BUFFER 
22$ 0 22$ IF NO ERROR 
NOP 1 OO TURN Sere IF ERROR 
ine EMT TERROR # DEFINED BY CMPBUF SUBROUTINE 
gIT #FMT16,RMOFO TEST 16 BIT MODE YET ? 
MOV #FMT16,RMOFO SET 16 BIT MODE AND 
JMP 1$ :TEST AGAIN. 
23$: 
FERRARA ARRERERAREREREREEERERERERREREREERERERERERERERERRRRRRERREEE 
tSTEST 3 ZERO FILL TEST 
Se neraapennnereer scatter or eecmat neat gcectry ay ime maior 
SCOPE zSCOPE CALL 
NOP SSTART OF TEST 
MOV #STACK, SP 3 INITIALIZE STACK POINTER 
MOV AR [RO = UNIBUS ADDRES 
MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 
MOV #3, $TESTN +:SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV #559. ,RMDCO sCYLINDER = 559. 
MOV TA2.RMDAO STRACK = 2 SECTOR = 0 
MOV #FMT16,RMOFO :16 BIT aT 
MOV #-258..RMWCO 2 + oa e6 COR S (2°S COMP) 
MOV WBUFONE,RMBAO DATA BUFFER OF DRESS 
MOV #WH,RMCS10 SWRITE HEADER AND DATA 
:VERIFY THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
BR :60 TO 1$ IF NO ERROR 
TYPE  ,SCTMSG STYPE BAD SECTOR MESSAG 
EMT TERROR # DEFI 
i JMP 18$ 60 TO 18$ IF ERROR 
mov HEROS STHPO SUSE ALL ZEROS DATA PATTERN 
- JSR PC. GENBUF 3G0 GENERATE DATA BUFFER 
:PREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
“WORD 154130 > TASK BESCRIPTOR AS FOLLOWS: 
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ZERO FILL TEST 


001412 





SEQ 0076 

SELECT DEVICE & VERIEY DEVICE AVAILABLE 

R & SELECT DEVICE 
OLLER CLEAR OPERATION 
3PACK ACKNOWL OLUME NOT VALID 
VERIFY PACK ACKNOULEDG ett 
:RECALIBRATE IF SKI OR "PIP" 1S SET 
VERIFY. RECALIBRATION 


BR 3$ 760 TO 3$ IF NO ERROR 
NOP PRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 


JMP 188 760 TG 18$ IF ERROR 


3$: 

3; SETUP —; AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
K!GO,RMCS10 ; GE COMMAND TO SEEK 

R2 “WRITE REGISTER INDEX TABLE 


MOVB #200, (R2)+ 
JSR PC PUT 260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 4$ ;G0 TO 4$ IF NO ERROR 

NOP RETURN HERE IF ERROR 

EMT TERROR # DEFINED BY PUT SUBROUTINE 

JMP 18$ 760 TO 18$ IF ERROR 


4$: 
sSETUP FOR READING STATUS AND THEN WAIT FOR = TO COMPLETE 
JSR PC,GETSTS 3S FOR STATUS 
48R PC, TIMOUT sWAIT FOR SEEK TO COMPLETE 


. 
“Ge 


GO READ SEEK STATUS 
J PC.GET 


SR G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR G0 TO 6$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT sERROR # DEFINED BY GET SUBROUTINE 
JMP 18$ :GO TO 18$ IF ERROR 


6$: 


VERIFY THE RESULTS OF THE SEEK COMMAND 
JSR PC,SEKSTS 260 VERIFY RESULTS OF SEEK OPERATION 
;G0 TO 7$ IF NO ERROR 


NOP SRETURN HERE IF ERROR 

EMT TERROR # DEFINED BY SEKSTS SUBROUT INE 
JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 

JMP 18$ 760 TO 18$ IF ERROR 


7$: 


;SETUP AND EXECI'TE WRITE HEADER AND DATA COMMAND 
MOV #-2 .RMWCO :FORMAT PARTIAL SECTOR 
MOV #WH'GO,RMCS10 SWRITE HEADER AND DATA 
MOV #PUTINX+3,R2 SEXTEND REGISTER INDEX TASLE 
MOVB  #RMWC, (R25+ 
MOVB  #RMBA.(R2)+ 


~~ RM80 
ZERO F 

198 Oller i 

199 011340 

200 

201 O11 ee 
011350 
011352 
011354 
011356 

202 011362 

203 

204 

205 011362 

207 011366 
011372 
011374 
011376 
011400 

208 011404 

209 

210 

211 011404 
011410 
011412 
011414 
011416 
011420 

212 011424 

2135 011424 
011430 
011432 
011434 
011436 
011440 

214 011444 

215 011444 
011450 
011452 
011454 
011456 
011460 

216 011464 

217 

218 

219 011464 

220 011472 

221 011500 

222 

223 011506 
011512 
011514 
011516 
011520 

224 011524 

225 

226 

227 011524 
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000000 
000200 


036004 


011644 


036356 
035534 


011644 


036552 


011644 
051612 


011644 
037404 


011644 


177376 
000073 
102722 


036004 


011644 


036356 


MOVB 
MOVB 


JSR 
BR 

NOP 
EMT 
JMP 


;WAIT FOR WRITE 
JSR 


9$: 
VERIFY 


10$: 


11$: 


12$: 


sREAD a % AND Pr} FOR _, JUST WRITTEN 


#RiiiG0. ;RMCS10 
#BUF TWO, RMBAO 


13$: 


sWAIT 7 TO Comte AND GET STATUS 


JSR 
BR 

NOP 
EMT 
JMP 


RESULTS 
R 
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#RMCS1, (R2)+ 


#200, (R2)+ 
PC.PUT 
8$ 


18$ 


e 


PC.GET 
9$ 


18$ 


PC,a(SP)+ 
18$ 


PC, SECERR 
128 


PC,a(SP)+ 


18$ 


PC PUT 
13$ 


18$ 


PC,T 


S WRITE COMMAND 





360 WRITE yt WITH PUT SUBROUTINE 
760 TO 8$ IF NO ERROR 

RETURN HERE IF ERROR 

3ERROR # DEFINED BY PUT SUBROUTINE 

G0 TO 18$ IF ERROR 


rien TO COMPLETE AND aor iy 
PC, TIMOUT WAIT 


FOR COMMAND TO COMPLETE 
G0 READ sie ts WITH GET SUBROUTINE 
760 TO 9$ IF NO ERROR 
RETURN HERE IF 


ERROR 
TERROR # gd BY GET SUBROUTINE 
760 TO 18$ IF ERROR 


360 oe FOR PRIMARY ERRORS 
260 O 10$ IF NO ERROR 
RETURN HERE IF ERROR 
SERROR # DEFINED BY PRIERR SUBROUTINE 
760 BACK FOR a ERROR CHECKS 
360 10 18$ IF ERROR 


GO VERIFY RESULTS OF DATA TRANSFER 
760 TO 11$ IF NO ERROR 

sRETURN HERE IF ERROR 

sERROR f oan pee BY DTASTS 7 epi 
760 BACK FOR MORE ERROR CHECKS 

760 TO 18$ IF ERROR 


238 eners FOR en ERRORS 
< OP TURN 12$_IF NO ERROR 


HERE IF ERROR 
3ERROR # Phe re BY SECERR SUBROUTINE 
CK FOR MORE ERROR CHECKS 
60 TO 18$ IF ERROR 


72 + + 256 ny (2°S COMP) 
READ HEADER eb DATA COMMAND 
+ CHANGE BUS ADDRESS 


:3 St. "iF NO-ERROR PUT SUBROUTINE 
RETURN HERE 


IF ERROR 
SERROR # DEFINED BY PUT SUBROUTINE 
760 TO 18$ IF ERROR 


sWAIT FOR READ TO COMPLETE 
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JSR 
BR 
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GO READ REGISTER(S) WITH GET SUBROUTINE 
NO Hy ~ 


SEQ 0078 


ooooo0oo 
ed ed od od etd oe 
PSTD 
RrORRWO 


“I 


be 


*GO TO 14$ IF 
NOP TRETURN HERE IF ERR 
EMT TERROR # DEFINED BY Ofer SUBROUTINE 
011644 JMP 18$ 160 TO 18$ IF ERROR 
THE RESULTS OF READ OPERATION 
036552 JSR PC .PRIERR 760 CHECK kK FOR PRIMARY ERRORS 
BR 15$ 360 0 15$ IF NO ERROR 
NOP SBE TURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :60 BACK FOR MORE ERROR CHECKS 
011644 JMP 18$ :GO TO 18$ IF ERROR 
051612 JSR PC ,DTASTS :60 VERIEY RESULTS OF DATA TRANSFER 
BR 16$ 0 16$ IF NO_ER ROR 
NOP SRC TURN HERE IF PERK 
EMT ZERROR r DEFINED BY ORTASTS SUBROUT INE 
JSR PC,a(SP)+ CK FOR MORE ERROR CHECKS 
011644 JMP 18$ :60 TO 18$ IF ERROR 
037404 JSR PC, SECERR 760 CHECK FOR SECONDARY ERRORS 
BR 17$ :GO TO 17$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
011644 JMP 18$ :GO TO 18$ IF ERROR 
DATA 
035106 JSR PC, CMPBUF :G0 COMPARE WRITE, READ DATA BUFFERS 
~WORD BUFONE “STARTING ADDRESS OF WRITE BUFFER 
“WORD BUFTWO SSTARTING ADDRESS OF READ BUFFER 
18$ 'G60 TO 18$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
A EMT TERROR # DEFINED BY CMPBUF SUBROUTINE 
RRRRARAREARARREAERAERRRAREEREREAARARERAERRERRERRERRERERREAREREE 
TEST 4 FORMAT CHECK ZEROS 
LRRAAAAAAAAARAARARREREEEEARERERERAEEEREEEREEEARAEERERERRRRRRREEER 
‘S14: 
SCOPE i SCOPE CALL 
NOP T OF TEST 
1100 MOV #STACK sP Z INITIALIZE STACK POINTER 
12 4 MOV S$BASE ,R :RO = UNI 
1 MOV TSTQUE RI 7(R1) = DEVICE Being TESTED 
001226 MOV #4, STESTN ¢:SET TEST NUMBER IN APT MAIL BOX 
SETUP PARAMETERS F GENERATING DATA BUFFER 
1057 $59. RAD sCYLINDER = 559. 
1 nov #23 “rte TRACK = 2, SECTOR = 0 
MOV #FMTI6,RMOFO =: 16 Slr FORMAT 
? MOV #-258..RMWCO 38 32 + i, WORDS (28 «con? 
10171 MOV #BUFONE.RABAO DATA BUFFER ADDRES 


ee ee ee - = > 
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000062 


032406 
063446 
012434 


031456 


012434 
000005 
001555 
000006 
036004 
012434 


035450 
056356 


035534 


012434 


001412 


001412 


MOV #WH,RMCS10 zWRITE HEADER AND DATA 
;VERIFY THAT SECTOR IS NOT BAD 
JSR PC,BADSCT :CALL BAD SECTOR MODULE 
BR £60 TO 1$ IF NO Ae ROR 
TYPE  ,SCTMSG TYPE BAD SECTOR MESSAGE 
EMT TERROR # DEFINED, By BADSCT SUBROUTINE 
- JMP 18$ 760 TO 18$ IF E 
MOV #ZEROS,$TMPO USE ALL ZEROS DATA PATTERN 
MOV #1,$TMP1 
= JSR PC, GENBUF :GO GENERATE DATA BUFFER 
sPREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
4 154130 *TASK DESCRIPTOR AS FOLLOWS: 
3SEL ECT DEVICE & VERIFY DEVICE AVAILABLE 
CONTROLLER & SELECT DEVICE 
: VERIFY CONTROLLER CLEAR OPERATION 
*PACK ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK A CKNOWL EDGE sits 
*RECALIBRATE IF ‘'SKI'' OR ‘PIP’ IS SET 
‘VERIFY RECA!IBRATION 
BR 3$ :GO TO 3$ IF NO ERR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 18s :GO TO 18$ IF E 
3$: 
;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
MOV WSEEK!GO,RMCS10 ;CHANGE COMMAN EEK 
MOV #PUTINX R2 SWRITE REGISTER INDEX TABLE 
MOVB  #RMDA, 
MOVB  &#RMDC,(R2)+ 
MOVB  #RMOF.(R2)+ 
MOVB = #RMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 4$ :GO TO 4$ IF NO ERRO 
NOP SRETURN HERE IF ERR or 
EMT SERROR # DEFINED BY PUT SUBROUTINE 
we JMP 18$ ‘GO TO 18$ IF ERROR 
;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK To COMPLETE 
JSR PC,GETSTS R STAT 
ne ser PC. TIMOUT WAIT FOR SEEK 10 COMPLETE 
:GO READ SEEK STATUS 
JSR i 360 READ REGISTER(S) WITH GET SUBROUTINE 
BR 760 TO 6$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 18$ 760 TO 18$ IF ERROR 


SEQ 0079 


oOo 


c 7 
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14 FORMAT CHECK ZEROS 


284 012120 6$: 
286 : VERIFY THE RESULTS OF THE SEEK COMMAND 
287 g121 0 004737 044174 PC,SEKSTS :60 0 VERIFY RESU RESULTS OF SEEK OPERATION 
012124 000405 ae 7$° NO ERROR 
012126 000240 NOP OP TURN MERE IF ERROR 
012130 104 EMT ERROR “ DEF INED BY SEKSTS SUBROUTINE 
012132 0047 JSR PC,a(SP)+ G0 BACK FOR MORE ERROR CHECK 
012134 000137 012434 JMP 18$ ‘GO TO 18$ IF ERROR 
288 012140 7$: 
290 ;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
291 012140 012737 000063 001412 MOV #WH!GO,RMCS10 ;WRITE HEADER AND DATA 
292 012146 01 208 001560 MOV #PUTINK+3,R2 TEXTEND REGISTER INDEX TABLE 
293 012152 112722 000002 MOVB  #RMWC,(R25+ 
294 012156 112722 000004 MOVB #RMBA.(R2)+ 
295 012162 112722 000000 Move #RMCS1, (R2)+ 
396 012166 112722 000200 MOVB #200, (R2)+ 
298 012172 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
012176 000404 BR 8$ 760 TO 8$ IF NO ERROR 
012200 000240 NOP [RETURN HERE IF ERROR 
012202 104000 EMT ERROR # DEF pee BY PUT SUBROUTINE 
012204 000137 012434 JMP 18$ £60 TO 18$ IF ERROR 
299 012219 8$: 
301 WAIT FOR WRITE COMMAND TO COMPLETE AND RO STATUS 
302 012210 004737 036356 JSR PC, TIMOUT WAIT FOR COMMAND TO COMPLETE 
304 012214 004737 035534 JSR PC,GET 3GO READ gig} WITH GET SUBROUTINE 
12220 000404 BR 9$ :G0 TO 9$ IF NO ERROR 
012222 000240 NOP * RETURN HERE IF ERROR 
012224 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
012226 000137 012434 JMP 18$ 760 TO 18$ IF ERROR 
305 012232 9$: 
307 ;VERIFY RESULTS OF WRITE COMMAND 
308 012232 004737 036552 JSR PC,PRIERR :GO CHECK FOR PRIMARY ERRORS 
012236 000405 BR 10$ *G0 TO 10$ IF NO ERROR 
012240 000240 NOP [RETURN HERE IF ERROR 
012242 104000 EMT *ERROR # DEF INED BY PRIERR SUBROUTINE 
012244 004736 JSR PC, a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
— 012046 000137 012434 i JMP 18$ *GO TO 18$ IF ERROR 
310 012252 004737 051612 JSR PC, DTASTS :G0 VERIFY RESULTS OF DATA TRANSFER 
012256 000405 BR 11$ *GO TO 11$ IF NO ERROR 
012260 000240 NOP SRETURN HERE IF 
012262 104000 EMT TERROR # DEFINED Br Y DTASTS SUBROUTINE 
012264 004736 JSR PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
ma 912266 000137 012434 ios JMP 18$ :GO TO 18$ IF ERROR 
312 012272 004737 037404 JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
012276 000405 BR 12 12$ IF NO. ERROR 
012300 000240 NOP <A URN HERE IF ERROR 
012302 104 EMT SERROR # DEFINED BY SECERR SUBROUT INE 
012304 0047 JSR PC, a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
012306 000137 012434 JMP 18$ *GO TO 18$ IF ERROR 


ao 
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FORMAT CHECK ZEROS 
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01 
331 012420 
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04 
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000053 001412 
036004 
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035534 


012434 


036552 


012434 
051612 


012434 
037404 


001 
EE 
0014 $6 

000005 001226 


12$: 


SEQ 0081 


sWRITE why HEADER AND DATA FOR SECTOR JURT WRITTEN 


13$: 


3W4iT FOR WRITE 
JSR 


JSR 
BR 


NOP 
EMT 
JMP 


#WCH!GO,RMCS10 


PC PUT 
13$ 


18$ 


WRITE CHECK COMMAND 
‘60 uni ee WITH PUT SUBROUTINE 
RETURN HERE. IF 


“ERR 
ZERROR # DEFINED BY “Pur SUBROUTINE 
760 TO 18$ IF ERROR 


CHECK TO COMPLETE AND GET STATUS 
PC, TIMOUT 


WAIT FOR READ TO COMPLETE 


3G0 READ REGISTER(S) WITH GET SUBROUTINE 
360 TO 14$ IF NO nee 

SRETURN HERE IF ERROR 

TERROR # per ee BY GET SUBROUTINE 

360 TO 18$ IF ERROR 


RESULTS OF WRITE CHECK OPERATION 
PC,PRIERR 


O CHECK FOR PRIMARY ERRORS 
360 TO ‘2 IF WO ERROR 


7RETURN H ERE IF ERROR 

SERROR # DEFINED BY PRIERR SUBROUTINE 

360 BACK FOR MORE ERROR CHECKS 

760 TO 18$ IF ERROR 

360 vente RESULTS OF DATA TRANSFER 

760 TO 16$ IF NO ERROR 

RETURN HERE IF ERROR 

;ERROR # DEFINED BY DTASTS SUBROUTINE 
CK_FOR MORE ERROR CHECKS 

:60 TO 18$ IF ERROR 


3GO CHECK FOR SECONDARY ERRORS 
760 TO 17$ IF NO ERROR 

ZRETURN HERE IF ERROR 

SERROR # DEFINED BY SECERR SUBROUTINE 
3G0 BACK FOR MORE ERROR CHECKS 


FERRARA RARERERERERARERERERAEARERERAEREREREREEREREREREREREREREE REE 


FORMAT CHECK ZEROS W/ WCE ERROR 


RARER EEEREREEAEEEEEERERERRERERERERERREREREEEREREREEREREEREERE 


JSR PC,GET 
BR 148 
NOP 
EMT 
JMP 18$ 
14$: 
:VERIFY THE 
JSR 
BR 15$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 18$ 
15$: 
JSR PC,DTASTS 
BR 16$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 18$ 
16$: 
JSR PC,SECERR 
BR 17$ 
NOP 
EMT 
JSR PC,a(SP)+ 
17$: 
18$: 
tSTEST 5 
i815: 
SCOPE 
NOP 
MOV #STACK, SP 
MOV $BASE ,RO 
MOV rer oue™ R1 
MOV #5, $TESIN 


sSCOPE CALL 
ZSTART OF TEST 
3 INITIALIZE oe POINTER 


RO = UNIBU DR 
3(R1) = DEVICE BEING TESTED 
7;SET TEST NUMBER IN APT MAIL BOX 





nm 


* eins 





BF org 
341 Ot 19 
3§ 012476 
343 012504 
344 Oiseie 
2 01252 
i 
012526 
012532 
012534 
012540 
Oi Sete 
348 012546 
349 012546 
350 012554 
351 012562 
352 012566 
353 
354 
355 66 


oo 
a 
rr 
wu 
~“ 
~ 


012574 
012576 
012600 
012602 
356 012606 
357 
358 
359 012606 
360 012614 
361 012620 
362 012624 
363 0126 
364 012634 
363 012640 
367 012644 
012650 
012652 
012654 
012656 
368 012662 
369 
370 
7 ote 
73 019673 


oooco°oo 
Roronornonerny 


par ee Serer ers 
SNS 
WWII 
SN 


e258 
S34 


S 
48 


S S22 
perp 
rr 
NN 


— 
Ww 
S 
— 
Ww 
on 


~ at tI IOO 
SSuRN SANA 
NOOEN  fonononrrnrn 


Ee 


013374 


000005 
001555 
000006 


000034 
000032 


000200 
036004 


013374 


035450 
036356 


001174 
001176 


001412 


;SETUP PARAMETERS FOR amg CHL INE BUFFER 
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MOV ' DER = 559. 
MOV #TA2RMDAO iT 2, SECTOR = 0 
MOV #FMT16,RMOFO le Str _FofnAt 
MOV 4-238. RMWCO 2 + 256 WORDS (2°S COMP) 
MOV ONE,RMBAO DATA BUFFER ADDRESS 
MOV on RMCS10 [WRITE HEADER AND DATA 
sVERIFY THAT SECTOR IS NOT BAD 
JSR PC,BADSCT :CALL BAD SECTOR MODULE 
BR 360 TO 1$ IF NO ERROR 
TYPE  ,SCTMSG “TYPE BAD SECTOR MESSAGE 
EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
sa JMP 208 :60 TO 20$ IF ERROR 
mov #ZEROS, $THPO ;USE ALL ONES DATA PATTERN 
- JSR PC, GENBUF :G0 GENERATE DATA BUFFER 
sPREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
154130 [TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE e VER FY DEVICE AVAILABLE 
:CLEAR CONTRO Rt SELECT DEV VICE 
VERIFY COW TROLLER CLEAR OPERA TION 
AC E If VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
*RECALIBRATE IF ‘'SKI'' OR “PIP'' IS SET 
: VERIFY RECALIBRATION 
BR 3$ 360 TO 3$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ERROR # DEFINED. BY TSTPRP SUBROUTINE 
o JMP 20S 760 TO 20$ IF ERROR 
SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
WSEEK!GO,RMCS10 ; CHANGE EK 
MOV TINX Re WRITE REGISTER INDEX TABLE 
MOVB , (R2)¢ 
MOVB #RMDC. (RO) 
MOVB = #RMOF . (RO) + 
MOVB = #RMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR PC, PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 4$ :60 TO 4$ IF NO ERROR 
NOP :RETURN HERE IF ERROR 
EMT TERROR # DEFINED | BY PUT SUBROUTINE 
JMP 208 60 TO 20$ IF ERR 


4$: 


3 SETUP ‘-. READING STATUS AND THEN WAIT om tt TO COMPLETE 


5$: 


JSR 


PC,GETSTS 3SETUP F 
PC, TIMOUT [WAIT FOR SEEK 10 COMPLETE 


aa! 
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T FORMAT CHECK ZEROS W/ WCE ERROR 





375 3G0 READ SEEK STATUS 
7% 012672 004737 035534 JSR PC,GET :G0 READ REGISTER( 
012676 000404 BR 6$ :60 TO 6$ I 

012700 000240 NOP SRETURN HE 
012702 104 EMT TERROR # D 
012704 000137 013374 JMP 208 :60 TO 20$ 

377 012710 63: 

379 sVERIFY THE RESULTS OF THE SEEK COMMAND 

380 012710 004737 044174 JSR PC,SEKSTS :G0 VERIFY RESULTS OF SEEK OPERATION 
012714 000405 BR 7$ 360 TO 7$ IF NO ERROR 
012716 000240 NOP “RETURN HERE IF ERROR 
012720 104000 EMT TERROR # DEFINED BY SEKSTS SUBROUTINE 
012722 004736 JSR PC, a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
012724 000137 013374 JMP 208 :GO TO 20$ IF ERROR ra 

381 012730 7$: 

383 ;SETUP AND rr, WRITE HEADER AND DATA yh tg A 

384 012730 012737 000063 001412 MOV #WH'GO,RMCS10. ;WRITE HEADER AND DAT 

385 012736 012702 001560 MOV #PUT INK #3 R2 EXTEND REGISTER INDEX TABLE 

386 012742 112722 000002 MOVB C. (R2}* 

387 012746 ie7ee 000004 MOVB aRNBA. (R2)+ 

388 012752 112722 000000 MOVB  #RMCS1, (R2)+ 

389 012756 112722 000200 MOVB #200, (R2)+ 

391 012762 004737 036004 JSR PC,PUT ;GO WRITe REGISTER(S) WITH PUT SUBROUTINE 
012766 000404 BR aS 360 TO 8$ IF NO ERROR 
012770 000240 . NOP “RETURN HERE IF ERROR 
012772 Hise EMT s ERROR # DEFINED a PUT SUBROUTINE 
012774 . 000137 013374 JMP 20$ *60 TO 20$ IF ERROR 

332 013000 8$: 

394, ;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

395 013000 004737 036356 JSR PC, TIMOUT sWAIT FOR COMMAND TO COMPLETE 

397 013004 004737 035534 JSR PC,GET 760 READ REGISTER(S) WITH GET SUBROUTINE 
013010 000404 BR 9$ :G0 TO 9$ IF NO ERROR 
013012 000240 NOP < OP TURN HERE IF ERROR 
013014 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
013016 000137 013374 JMP 208 :60 TO 20$ IF ERROR 

398 013022 9$: | 

400 sVERIFY RESULTS OF WRITE COMMAND 

401 013022 004737 036552 JSR PC,PRIERR :60 CHE Ck FOR PRIMARY ERRORS 
013026 000405 BR 10$ 0 10$ IF NO ERROR 
013030 000240 ERETURN HERE’ IF PER ROR 
013032 104 EMT TERROR DEFINED BY PRIERR SUBROUTINE 
013034 0047 JSR PC,a(SP)+ 0 BACK FOR MORE ERROR CHECKS 

a 013036 000137 013374 sa IMF 20$ : 760 TO 20$ IF ERROR 

103 013042 004737 051612 JSR PC, DTASTS 760 VERIFY RESULTS OF DATA TRANSFER 
013046 000405 BR 11$ *GO TO 11$ IF NO ERROR 
013050 000240 NOF RET URN HERE IF ERROR 
013052 104 EMT *ERROR # DEFINED BY DTASTS SUBROUTINE 
013054 0047 JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
013056 000137 013374 JMP 208 [60 TO 20$ IF ERROR 

404 013062 11$: 


—m 
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405 01 737 037404 JSR PC SECERR :60 CHECK FOR SECONDARY ERRORS 
1 05 BR 12$ :G0 TO 12$ IF NO ERROR 
oi 29 40 NOP RETURN HERE IF ERROR 
13072 104 EMT ‘ERROR # DEFINED BY SECERR SUBROUTINE 
013074 004 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
013076 000137 013374 JMP 20$ 760 TO 20$ IF ERROR 

406 01310 128: 

408 ALTER DATA BUFFER 

409 013102 005137 102720 COM BUF TWwO=2 : COMPLEMENT LAST DATA WORD 

411 ;SETUP AND WRITE oGheCk HEADER AND DATA COMMAND 

aig 013106 012737 000053 001412 MOV WWCH'GO,RMCS10 ;WRITE CHECK COMMAND 

414 013114 004737 036004 JSR PC,PUT 760 Q WRITE RE REGISTER(S) WITH PUT SUBROUTINE 
013120 000404 BR 13$ £60 NO ERROR 
013122 000240 NOP RETURN WERE IF ERROR 
013124 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
013126 000137 013374 JMP 20$ 760 TO 20$ IF ERROR 

415 013132 13$: 

417 sWAIT FOR WRITE CHECK COMMAND TO COMPLETE AND a STATUS 

418 013132 004737 036356 JSR PC, TIMOUT sWAIT FOR COMMMAND TO COMPLETE 

420 013136 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
013142 000404 BR 14$ :G0 TO 14$ IF NO ERROR 
013144 000240 NOP [RETURN HERE IF ERROR 
013146 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
013150 000137 013374 JMP 208 760 TO 20$ IF ERROR 

421 013154 14$: 

423 sCHECK FOR PRIMARY ERRORS 

424 013154 004737 036552 JSR PC PRIERR 360 CHECK FOR PRIMARY ERRORS 
013160 000405 BR 15$ 360 TO 15$ IF NO ERROR 
013162 000240 NOP [RETURN HERE IF ERROR 
013164 104000 | EMT ZERROR # DEFINED BY PRIERR SUBROUTINE 
013166 004736 JSR PC,a(SP)+ BACK FOR MORE ERROR CHECKS 
013170 000137 013374 JMP 208 <60 TO 20$ IF ERROR 

435 013174 15$: 

427 ;MAKE SURE THE WRITE CHECK ERROR WAS DETECTED 

428 013174 032737 040000 001346 BIT #WCE .RMCS21 31$ WRITE CHECK ERROR SET?? 

429 013202 001023 BNE 17$ YES! ! 

431 013204 004737 051612 JSR PC ,DTASTS :G0 VERIFY RESULTS OF DATA TRANSFER 
013210 000405 BR 16$ *GO TO 16$ IF NO ERROR 
013212 000240 NOP SRETURN HERE IF ERROR 
013214 104000 EMT SERROR # DEF INED BY DTASTS SUBROUTINE 
013216 004736 JS PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 

me 013220 000137 013374 J 208 - $60 TO 20$ IF ERROR 

133 0132 4 013737 001346 001140 16$: MOV RMCS21,$GDDAT :LOAD EXPECTED STATUS 

434 013232 02737 040000 001140 BIS wu 

435 013240 01 3? 001346 001142 MOV RMCS2I ,SBDDAT :LOAD RECEIVED STATUS 

436 013246 104337 EMT 33 

437 013250 000451 BR 20$ 

438 013252 17$: 
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s VERIFY a ADDRESS OF THE WRITE CHECK ERROR 
#BUF TWO-2 , SGDADR sLOAD EXPECTED ADDRESS 

MOV RMBAI , $8 LOAD RECEIVED ADDRESS 
SUB #2, SBDADR ZDECREMENT RECEIVED ADDRESS 


GET WCE DATA AND VERIFY IT IS OK 
MOVE #RMDB x 


.GETIN sSETUP FOR READING RMDB 
MOVB #200,GETINX+1 
JSR PC,GET 760 READ REGISTER(S) WITH GET SUBROUTINE 
BR 18$ 360 TO 18$ IF NO ERROR 
NOP “RETURN HER t IF ERROR 
EMT ZERROR r) DEFINED BY GET SUBROUTINE 
JMP 20$ *60 TO 203 IF ERROR 
18$: MOV RMDBI , SBDDAT OF OAD PECEIVED DATA WORD 
MOV BUF TWO-2.SGDDAT ‘LOAD EXPECTED DATA WORD 
CMP S$GDADR, SBDADR 31S ADDRESS 0K?? 
BEQ 19$ YES! ! 
EMT 340 
BR 20$ 
19$: CMP S$GDDAT, SBDDAT 31S DATA WORD 0K?? 
BEQ 20$ TYES!! 
EMT 341 
20$: 
FRRRARAAAAARAERAAAEARARAREEARAAAAARAEAEREREREREERREERERERRERERERRERE 
TRTEST 6 FORMAT ONES 
pa cacao nutmeg ntti 
SCOPE ZSCOPE CALL 
NOP SSTART OF TEST 
MOV #STACK, SP S INITIALIZE STACK POINTER 
MOV :RO_= UNIBUS ADDRESS 
MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
MOV #6,STESTN *:SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV 9. ,RMDCO :CYLINDER = 559. 
MOV #TA2. RMDAO STRACK = 2, SECTOR = 0 
MOV #FMT16,RMOFO 316, BIT FORMAT 
MOV #-258..RMWCO 32 + 256 WORDS (2°S COMP) 
MOV #BUFONE,RMBAO DATA BUFFER ADDRESS 
MOV #WH,RMCS10 [WRITE HEADER AND DATA 


;VERIFY THAT SECTOR IS NOT BAD 
JSR PC BAD 


DSCT :CALL BAD SECTOR MODULE 
BR *60 TO 1$ IF NO ERROR 
TYPE  ,SCTMSG “TYPE BAD SECTOR MESSAGE 
EMT *ERROR # DEFINED BY BADSCT SUBROUTINE 
aa JMP 18$ 760 TO 18$ IF ERROR 
; MOV #ONES. STHPO SUSE ALL ONES DATA PATTERN 
. JSR PC; GENBUF :GO GENERATE DATA BUFFER 
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3 PREPARE Ps FOR retee TRANSFER 
P TPRP 


sPREPARE DEVICE FOR TEST 

3TASK DESCRIPTOR AS FOLLOWS: 

ZSELECT DEVICE & VERIFY DEVICE AVAILABLE 
LEAR CONTROLLER & SELECT DEVICE 

VERIFY CONTROLLER CLEAR OPE 

SPACK ACKNOWLED VOLUME NOT VALID 

;VERIFY PACK ACKNOWL EDG il 

ZRECALIBRATE IF ‘'SKI'’ OR “PIP' IS SET 

;VERIFY RECALIGRATION 

360 TO 3$ IF NO ERR 
SRETURN HERE IF ERROR 

ZERROR # DEFINED BY TSTPRP SUBROUTINE 

360 TO 18$ IF 


3 SETUP —s AND EXECUTE SEEK TO GET cord * CYLINDER 


JBORD 1 i} 0 
BR 3$ 
NOP 
EMT 
JMP 18$ 

3$: 

#SEEK'GO,RMCS10 
V TINX,R2 
MOVB RMDA, (R2)+ 
VB  #RMDC, (Ro)+ 

MOVB (R2): 
MOVB = #RMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR PC,PUT 
BR 4$ 
NOP 
EMT 
JMP 18$ 

4$: 

:SETUP FOR READING STATUS AND THE 
JSR C.GETSTS 

_ 4ER Pe’ TIMOUT 


3GO READ SEEK STATUS 
JSR PC 


NOP 

EMT 

JMP 18$ 
6$: 


VERIFY THE RESULTS OF THE SEEK C 
JSR PC,SEKSTS 


PC ,a(SP)+ 


EMT 
JSR 
JMP 18$ 


7$: 


3 SETUP 4 EXECUTE WRITE HEADER AND DATA COMMAND 


#WH!GO,RMCS10 


360 TO 18$ IF ERROR 


3 CHAN D TO SEEK 
SWRITE REGISTER INDEX TABLE 


360 WRITE rly WITH PUT SUBROUTINE 

760 TO 4$ IF NO ERROR 

RETURN HERE IF ERROR 

SERROR # DEFINED BY PUT SUBROUTINE 

760 TO 18$ IF ERROR 

N WAIT FOR = TO COMPLETE 
SETUP F T 


STATUS 
;WAIT FOR SEEK TO COMPLETE 


GO READ REGISTER(S) WITH GET SUBROUTINE 
36 6$ IF NO ER ar 
RETURN HERE IF 


ERR 
ERROR # gers BY “Ger SUBROUT INE 
3:60 TO 18$ IF ERROR 


OMMAND 
388 D venieY PEND ERR - SEEK OPERATION 
eRe TURN 


HERE If ERROR 
ZERROR # DEFINED BY SEKSTS SUBROUTINE 
360 BACK FOR MORE ERROR CHECKS 


sWRITE HEADER AND DATA 
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16 FORMAT ONES 

510 13676 0127 1560 MOV #PUTINX+3 R2 sEXTEND REGISTER INDEX TABLE 

21] 1 1127 MOVB apt . (Re) 

lg 1 706 1107 MOVB = #RMBA. ( 

31 13712 1107 MOVB anncst (hae 

31% 13716 1127 MOVB » (R2) 

516 013722 004737 036004 JSR PC,PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
013726 000404 BR as :GO TO 8$ IF NO ERROR 
013730 000240 NOP RETURN MERE IF ERROR 
01373 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
013734 000137 014214 JMP 18$ 760 TO 18$ IF ERROR 

$17 013740 8$: 

519 :WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

220 013740 004737 036356 JSR PC, TIMOUT ;WAIT FOR COMMAND TO COMPLETE 

253 013744 004737 035534 JSR PC,GET :GO0 READ REGISTER(S) WITH GET SUBROUTINE 
013750 000404 BR 9$ [60 TO 9$ IF NO ERROR 
013752 000240 NOP RETURN HERE IF ERROR 
013754 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
013756 000137 014214 JMP 18$ 760 TO 18$ IF ERROR 

535 013762 9$: 

525 ;VERIFY RESULTS OF WRITE COMMAND 

526 013762 004737 036552 JSR PC,PRIERR 360 CHECK FOR PRIMARY ERRORS 
013766 000405 BR 10$ 760 TO 10$ IF NO ERROR 
013770 000240 NOP RETURN HERE IF ERROR 
013772 104000 EMT TERROR # DEFINED BY PRIERR SUBROUT INE 
013774 004736 JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 

_ 013776 000137 014214 ve JMP 18$ :GO TO 18$ IF ERROR 

528 014002 004737 051612 JSR PC. DTASTS 760 VERIFY RESULTS OF DATA TRANSFER 
014006 000405 BR 11$ 360 0 11$ IF NO ERROR 
014010 000240 “RE TURN HERE IF ERROR 
014012 104000 EMT ZERROR ‘ DEF INED BY DTASTS SUBROUTINE 
014014 004736 JSR PC, a(SP)+ BACK FOR MORE ERROR CHECKS 
014016 000137 014214 JMP 18$ 260 TO 18$ IF ERROR 

529 014022 11$:: 

530 014022 004737 037404 JSR PC, SECERR 360 CHECK FOR SECONDARY ERRORS 
014026 000405 BR 12$ 0 12$ IF NO ERROR 
014030 000240 NOP SRETURN. HERE IF ER ROR 
014032 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
0140346 004756 JSR PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
014036 000137 014214 JMP 18$ :GO TO 18$ IF ERROR 

531 014042 12$: 

238 ZREAD HEADER AND DATA FOR SECTOR JUST WRITTEN 

534 014042 012737 000073 001412 #RH!'GO,RMCS10 sREAD HEADER & DATA COMMAND 

335 014050 012737 102722 001416 MOV #BUF TWO, RMBAO SCHANGE BUS ADDRESS 

537 014056 004737 036004 JSR PC PUT 760 0 WRITE REG REGISTER(S) WITH PUT SUBROUTINE 
014062 000404 BR 13$ 760 NO ERROR 
014064 000240 NOP SRETURN H HERE. IF ERROR 
014066 104 EMT TERROR # DEFINED BY PUT SUBROUTINE 
914070 137 014214 en JMP 18$ *G0 TO 18$ IF ERROR 


538 
539 
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sWAIT FOR READ TO an AND GET STATUS 
PC, TIMOUT 
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SEQ 0088 


JSR ;WAIT FOR READ TO COMPLETE 
JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
BR 148 :G0 TO 14$ IF NO, ER ROR 
NOP RETURN HERE IF ERROR 
EMT TERROR # SEE INED™ BY GET SUBROUTINE 
JMP 18$ :60 TO 18$ IF ERROR 
14$: 
:VERIFY THE RESULTS OF READ OPERATION 
JSR BC -PRIERR 360 CHECK FOR PRIMARY ERRORS 
BR 15$ 360 TO 15$ IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ZERROR ‘ DEF INED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ BACK FOR MORE ERROR CHECKS 
sa JMP 18$ 260 TO 18$ IF ERROR 
JSR PC ,DTASTS 3G0 VERIFY RESULTS OF DATA TRANSFER 
BR 16$ *GO TO 16$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ :G0 BACK FOR MORE CRROR CHECKS 
vt JMP 18$ :G0 TO 18$ IF ERROR 
JSR PC,SECERR :60 CHECK FOR SECONDARY ERRORS 
BR 178 60 T 0 17$ IF NO ERROR 
NOP BURN HERE IF ERROR 
EMT ZERROR & DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ CK FOR MORE ERROR CHECKS 
JMP 18$ £60 TO 18$ IF ERROR 
17$: 
:VERIFY DATA 
JSR PC, CMPBUF 3G0 COMPARE WRITE, READ DATA BUFFERS 
. WORD F ONE SSTARTING ADDRESS OF WRITE BUFFER 
"WORD BUFTWO ; STARTING ADDRESS OF READ BUFFER 
BR 8$ “GO TO 18$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
a EMT TERROR # DEFINED BY CMPBUF SUBROUTINE 
23 EAA EEEEEEERAEREEREERAKEEREREEREKEREREERAEERERKEEEEE 
**TEST 7 FORMAT CHECK ONES 
| eepamnamnneaneuerticnccrntamanairea-tniE sureeeaeie 
SCOPE :SCOPE CALL 
NOP SSTART OF TEST 
MOV #STACK, SP ZINITIALIZE STACK POINTER 
MOV +RO = UNIBUS ADDRESS 
MOV TSTQUE Rl ;(R1) = DEVICE BEING TESTED 
MOV #7,$ +;SET TEST NUMBER IN APT MAIL BOX 
sSETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV #559, mDCO :CYLINDER = 559. 
MOV #TA2 -RMD * TRACK = +h SECTOR = 0 
MOV aEATiOn RROFO +16 BIT FORMAT 
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CHECK 


177376 
1178 
00006 

032406 
063446 


015004 


065054 
000001 
034640 


031456 


000200 
036004 


015004 


035450 
036356 


035534 


001 


414 
001416 
001412 


001174 
001176 


001412 


SEQ 0089 


MOV #-258.,RMWCO 2 + 
MOV #BUF ONE , RMBAO 
MOV #WH,RMCS10 


VERIFY THAT SECTOR IS NOT BAD 
J PC ,BADSCT 


+ 256 WORDS (2°S COMP) 
[DATA BUFFER ADDRESS 
{WRITE HEADER AND DATA 


SR :CALL BAD SECTOR MODULE 
BR £60 TO 1$ IF NO ERROR 
TYPE ,SCTMSG TYPE BAD SECTOR MESSAGE 
EMT TERROR # DEFIN NED BY BADSCT SUBROUTINE 
ue JMP 18$ :G0 TO 18$ IF ERROR 
MOV #ONES ,STMPO sUSE ALL ONES DATA PATTERN 
MOV #1,$TMP1 
JSR PC. GENBUF :G0 GENERATE DATA BUFFER 
sPREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
“WORD 154130 S TASK DESCRIPTOR AS FOLL 
*SELECT DEVICE & VERIFY DEVICE AVAILABLE 
: LER & SELECT 
‘VERIFY CONTROLLER CLEAR AR OPERAT ON 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY ACK ACKNOWLEDGE 
SRECALIBRATE IF ‘'SKI'' OR "PIP'' IS SET 
[VERIFY RECALIBRATI 
BR 3$ :G0 TO 3$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
- JMP 18$ :G0 TO 18$ IF ERROR 


3 SETUP oe 5 oe tp TO GET as ON CYLINDER 


WSEEK D TO SEEK 
MOV #PUTINX,R2 caite REGISTER INDEX TABLE 
MOVB = #RMDA, (R2)+ 
MOVB  #RMDC.(R2)+ 
MOVvB F.(R2)+ 
MOVB = #RMCS1, (R2)+ 
MOVB #200, (R2)+ 
JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 4$ :GO TO 4$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT TERROR # DEFINED | BY PUT SUBROUTINE 
JMP 18$ 'GO TO 18$ IF ERR 
4$: 
:SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
JSR PC,GETSTS :SETUP FOR STATU 
i 4eR PC. TIMOUT ‘WAIT FOR SEEK TO COMPLETE 
:GO READ SEEK STATUS 
JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
NOP = RETURN HERE IF ERROR 


ateihctid 


ao 
ee) 


— 
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014462 104 EMT sERROR # DEFINED A GET SUBROUTINE 
014464 000137 015004 JMP 18$ :G0 TO 18$ IF E 

598 014470 6$: 

600 sVERIFY THE RESULTS OF THE SEEK COMMAND 

601 014470 004737 044174 JSR PC,SEKSTS 360 VERIFY RESULTS OF SEEK OPERATION 
014474 000405 BR 7$ 360 0 7$ IF NO ERROR 
014476 000240 NOP SRE TURN HERE IF ERROR 
014500 104000 EMT TERROR # DEFINED BY SEKSTS SUBROUT INE 
014502 004736 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
014504 000137 015004 JMP 18$ :GO TO 18$ IF ERROR 

602 014510 7$: 

604 :SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

605 014510 012737 000063 001412 MOV #WH'GO,RMCS10 :WRITE HEADER AND DATA 

606 014516 012702 001560 MOV #PUT INK 3 R2 SEXTEND REGISTER INDEX TABLE 

607 014522 112722 000002 MOVB Re} 

608 014526 112722 000004 MOVB SRA, (RS) 

609 014532 112722 000000 MOVB = #*RMCSH, (R2)+ 

610 014536 112722 000200 MOVB #200, (R2)+ 

612 014542 004737 036004 JSR PC,PUT 3G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
014546 000404 BR 8S :GO TO 8$ IF NO ERROR 
014550. 000240 NOP RETURN | HERE IF ERROR 
014552 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
014554 000137 015004 JMP 18$ 760 TO 18$ IF ERROR 

615 014560 8$: 

615 :WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

616 014560 004737 036356 JSR PC, TIMOUT WAIT FOR COMMAND TO COMPLETE 

618 014564 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
014570 000404 BR 9$ :GO TO 9$ IF NO ERR OR 
014572 000240 NOP SRETURN HER RE IF ERR 
014574 104000 EMT SERROR # DEFINED BY Ofer SUBROUT INE 
014576 000137 015004 JMP 18$ 760 TO 18$ IF ERROR 

6i9 014602 9$: 

621 :VERIFY RESULTS OF WRITE COMMAND 

622 014602 004737 036552 JSR PC ,PRIERR :60 CHECK FOR PRIMARY ERRORS 
014606 000405 BR 10$ 36 10$ I NO_ERR ROR 
014610 000240 NOP RETURN HER iF IF P ERR 
014612 104000 EMT TERROR # DEF INED BY OBRIERR SUBROUTINE 
014614 004736 JSR PC,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
014616 000137 015004 JMP 18$ :GO TO 18$ IF ERROR 

623 014622 10$: 

624 014622 004737 051612 JSR PC,DTASTS :G0 VERIFY RESULTS OF DATA TRANSFER 
014626 000405 BR 11$ 760 TO 118 IF NO_ERROR 
014630 000240 NOP TRETURN HERE IF ERR 
014632 104000 EMT TERROR # DEFINED BY F OTASTS SUBROUT INE 
014634 00473 JSR PC,a(SP)+ :G0 BACK FOR MORE opr OR CHECKS 

a 014656 000137 015004 Mi JMP 18$ :GO TO 18$ IF ERR 

626 014642 004737 037404 JSR PC, SECERR :GO CHECK FOR SECONDARY ERRORS 
014646 000405 BR 128 3G0 TO 12$ IF NO ERROR 
014650 0002.0 NOP ‘RETURN HERE IF ERROR 
014652 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 


an 
ad 
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014 4654 004 JSR PC,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
01465 Hite 015004 JMP 588 *G0 TO 18$ IF ERROR 
627 01 12$ 
609 ;WRITE CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN 
630 014662 012737 000°S3 001412 MOV #WCH!GO,RMCS10 ;WRITE CHECK COMMAND 
632 914670 004737 036004 JSR PC PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
14674 0004 BR 13 :60 TO $_IF NNO ERROR 
14676 000240 NOP RETURN | HERE IF ERROR ae 
14700 104000 EMT ‘ERROR # DEFINED BY PUT SUBROUTINE 
01470 000137 015004 | JMP 18$ 760 TO 18$ IF ERROR 
635 12908 13$: 
635 ;WAIT FOR WRITE CHECK TC COMPLETE AND cer STATUS 
636 014706 004737 036356 JSR PC, TIMOUT WAIT FOR READ TO COMPLETE 
638 014712 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
014716 000404 BR 14$ 360 TO 14$ IF NO ERROR 
014720 000240 NOP SRETURN HERE IF ERROR 
014722 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
014724 000137 015004 JMP 18$ :G0 TO 18$ IF E 
639 014730 14$: 
641 SVERIFY THE RESULTS OF WRITE CHECK OPERATION 
642 014730 004737 036552 JSR PC .PRIERR :60 cH ECK FOR PRIMARY ERRORS 
014734 000405 BR 15$ *GO TO 15$ IF NO ERROR 
014736 000240 NOP < OP TURN HERE IF ERROR 
014740 104000 EMT ERROR “ DEF INED BY PRIERR SUBROUTINE 
01 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
am 9147 015004 ia JMP 18$ :GO TO iss IF ERROR 
644 01 051612 A he PC .DTASTS 360 VERIFY RESULTS OF DATA TRANSFER 
01 BR 16$ :GO TO 16$ IF NO ERROR 
01 NOP RETURN HERE IF ERROR 
014 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
01 JSR PC,a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
+n 14 015004 at IMP 18$ 760 TO 18$ IF ERROR 
646 01 037404 ae a PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
01 03 BR 17$ TO 17$ 1 RROR 
01 40 NOP ‘P TURN HER i IF PO ERROR 
015 90 EMT ‘ERROR # DEFINED BY SECERR SUBROUTINE 
ony JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
18$: 
FRAAAAAAAAEEREREAAAAAARARAAAAAEAARARAREAARRERERRAERAERARARAAAE EER 
tSTEST 10 FORMAT CHECK ONES W/ WCE ERRORS 
i teatantanvasuneuncutencuseunentunennensenenneucanensengnanegy® 
SCOPE :SCOPE CALL 
NOP [START OF TEST 
1100 MOV #STACK sP S INITIALIZE STACK POINTER | 
1276 MOV E.R [RO = UNIBU 
1466 MOV Teraue. R1 7(R1) = DEVICE BEING TESTED 
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o 015024 012737 000010 001226 MOV #10, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 
65 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
654 015032 012737 001057 001446 MOV 559. ,RMDCO sCYLINDER = 559. 
655 01504 0127 7 001000 00142 MOV #TA2.RMDAO [TRACK = 2, SECTOR = 0 
656 015046 012737 0100 001444 MOV #FMT16,RMOFO 316 T 
657 015054 oie? 7 177376 001414 MOV #-258. ,RMWCO + 256 WORDS (2°S COMP) 
658 015062 012737 101716 001416 MOV WBUFONE,RMBAO DATA BUFFER ADDRESS 
659 015070 012737 000062 001412 MOV #WH,RMCS10 ‘WRITE HEADER AND DATA 
661 ;VERIFY THAT SECTOR IS NOT BAD 
015076 004737 032406 JSR PC ,BADSCT ;CALL BAD SECTOR MODULE 
015102 000405 BR TO 1$ IF NO ERROR 
015104 104401 063446 TYPE ,SCTMSG ‘TYPE BAD SECTOR MESSAGE 
015110 104000 EMT TERROR # DEFINED BY BADSCT SUSROUTINE 
‘as g1stt2 000137 015742 a JMP 20$ 760 TO 20$ IF ERROR 
663 015116 012737 065054 001174 MOV #ONES , $TMPO ;USE ALL ONES PATA PATTERN 
664 015124 012737 000001 001176 MOV #1,$TMP1 
665 015132 004737 034640 JSR PC. GENBUF :G0 GENERATE DATA BUFFER 
666 015136. 2$: 
668 PREPARE DEVICE FOR DATA TRANSFER 
669 015136 004737 031456 JSR PC TSTPRP s PREPARE DEVICE FOR iEST 
015142 154130 ~ WORD 15 S13 TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
SCLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATI 
sPACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWL gigi 
*RECALIBRATE IF ‘'SKI'' OR “PIP’' IS SET 
: VERIFY RECALIBRATION 
015144 000404 BR 3$ :G60 TO 3$ IF NO 
015146 000240 NOP SRETURN HERE IF ERROR 
015150 104000 EMT ERROR # gt a+ BY TSTPRP SUBROUTINE 
015152 000137 015742 JMP 20$ 760 TO 20$ IF ERROR 
670 015156 3$: 
672 SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
673 015156 012737 000005 001412 MOV #SEEK!GO,RMCS10 :CHANGE COMMAND TO SEEK 
674 015164 012702 001555 MOV #PUTINX ,R2 [WRITE REGISTER INDEX TABLE 
675 015170 112722 000006 MOVB = #RMDA, (R2)+ 
676 015174 112722 000034 MOVB  #RMDC.(R2)+ 
677 015200 112722 000032 MOVB = ARMOF (Ra) + 
678 015204 112722 000000 MOVB = #RMCS1, (R2)+ 
679 015210 112722 000200 MOVB #200, (R2)+ 
681 015214 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
015220 000404 BR 4$ G0 TO 4$ IF NO ERROR 
015222 000240 RETURN HERE IF ERROR 
015224 104000 EMT “ERROR # DEFINED | BY PUT SUBROUTINE 
015226 000137 015742 JMP 20$ £60 TO 20$ IF ERR 
682 015232 4$: 
684 3; SETUP ‘?. READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
685 015232 004737 035450 JSR PC. GETSTS >SETUP FOR STATUS 
686 015236 004737 036356 JSR PC. TIMOUT WAIT FOR SEEK TO COMPLETE 
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T10 


687 015242 
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035534 
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015742 


000063 
0 


000200 
036004 


015742 


036356 
035534 


015742 


036552 


015742 
051612 


001412 


5$: 


:60 _. a STATUS 
aR 


6$: 
; VERIFY 


7$: 


SETUP AND Banat © re teo te A 
#PUTINK+3 Re 


NOP 
EMT 
JMP 


sWAIT FOR WRITE 
JSR 


9$: 
3; VERIFY 


10$: 


JSR 
BR 

NOP 
EMT 
JMP 


RESULTS 


PC,GET 
6$ 


20$ 


THE RESULTS OF THE SEEK 
JSR PC,SEKSTS 


PC,a(SP)+ 
20$ 


#RMWC , (R2)+ 


KRMBA, (R2)+ 
aRMESt «tR2)+ 


#200, (K2)+ 
PC PUT 
8$ 


20$ 


3G0 READ REGISTER(S) WITH GET SUBROUTINE 
0 TO IF NO ~ a 


[RETURN H RE IF ERR 
TERROR *D EFIN NED BY (fer SUBROUTINE 
*60 TO 20$ IF ERROR 


COMMAND 
360 VERIFY RESULTS OF SEEK OPERATION 
760 TO 7$ IF NO ERROR 

SRETURN HERE IF ERROR 

ERROR - : ee BY SEKSTS SUBROUTINE 
760 BACK FOR MORE ERROR CHECKS 

760 TC Sos iF ERROR 


AND DATA COMMAND 
WRITE HEADER AND D. 
ZEXTEND REGISTER INDEX TABLE 


260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
3:60 TO 8$ NO ERROR 


IF 
SRETURN HERE IF ERROR 
SERROR # DEFINED a PUT SUBROUTINE 
760 TO 20$ IF ERROR 


COMMAND COMPLETE AND RET gf 


PC, TIMOUT 
PC.GET 
9$ 


208 


oA WRITE COMMAND 


C,PRIERR 
10$ 


PC,a(SP)+ 
208 


PC ,DTASTS 
11§ 


PC,a(SP)+ 


FOR COMMAND TO COMPLETE 
260 READ mesisrents WITH GET SUBROUTINE 
;G0 TO 9$ IF NO ERROR 


ZRETURN HERE IF ERROR 
3ERROR & per ee BY GET SUBROUTINE 
3G0 TO 20$ IF ERROR 


160 ee FOR eet ERRORS 
O 10$ IF NO ERROR 

RETURN HERE IF ERR 

SERROR # DEFINED BY PRIERR SUBROUTINE 

360 BACK FOR MORE ERROR CHECKS 

760 TO 208 IF ERROR 


3GO VERIFY RESULTS OF DATA TRANSFER 
360 TO 11$ i WO ERROR 


OR 
ERROR # BY DTASTS SUBROUTINE 
3G0 BACK FOR MORE ERROR CHECKS 


SEQ 0093 


Ta 
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S 


015742 
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000053 001412 
036004 
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036356 
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036552 


015742 


040000 001346 


051612 
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JMP 20$ 
11$: 
JSR PC,SECERR 
BR 12$ 
NOP 
EMT 
JSR PC, a(SP)+ 
JMP 20$ 
12$: 
zALTER DATA BUFFER 
COM BUF TWO-2 


360 TO 20$ IF ERROR 


+ cnet FOR ae eAROn ERRORS 
12$_IF NO ERROR 
RE TURN HERE IF ERROR 
;ERROR # DEFINED BY SECERR SUBROUTINE 
BACK FOR MORE ERROR CHECKS 
60 TO 20$ IF ERROR 


COMPLEMENT DATA WORD 


3 SETUP gpa CHECK HEADER AND DATA C 


#WCH!GO,RMCS10 


JSR PC,PUT 
BR 13$ 
NOP 

EMT 

JMP 20$ 


13$: 


OMMAND 
sWRITE CHECK COMMAND 


b= G walle. ee PUT SUBROUTINE 


RET URN HERE IF ERROR 
SERROR # DEFINED BY PUT SUBROUTINE 
766 TO 20$ IF ERROR 


sWAIT FOR WRITE CHECK COMMAND TO COMPLETE AND ny STATUS 
JSR PC, TIMOUT sWAIT 


OR COMMMAND TO COMPLETE 


GO READ esisrents WITH GET SUBROUTINE 
360 0. T0 NO_ERROR 


14$_IF 
sRETURN KERE IF ERROR 
ERROR # oer Se BY GET SUBROUTINE 
760 TO 20$ IF ERROR 


G0 CHECK FOR PRIMARY ERRORS 

760 TO 15$ IF NO ERROR 

RETURN HERE IF ERROR 

TERROR # DEFINED BY PRIERR SUBROUTINE 
760 BACK FOR MORE ERROR CHECKS 

7G0 TO 208 IF ERROR 


I ph CHECK ERROR SET?? 


GO VERIFY RESULTS OF DATA TRANSFER 
360 16$_IF NO ERROR 

ZRETURN HERE IF ERROR 

TERROR # ee BY DTASTS SUBROUTINE 
7G0 BACK FOR a3 A ROR CHECKS 

760 TO 208 IF E 


3 LOAD EXPECTED STATUS 


JSR PC,GET 
BR 14$ 
N 
EMT 
JMP 208 
14$: 
:CHECK FOR PRIMARY ERRORS 
JSR PC,PRIERR 
BR 15$ 
NOP 
EMT 
JSR PC.a(SP)+ 
JMP 20$ 
15$: 
:MAKE SURE THE WRITE CHECK ERROR WAS DETECTED 
BIT #WCE ,RMCS21 
BNE 
JSR PC,DTASTS 
BR 16$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 
16$: MOV RMCS21,$GDDAT 
BIS #WCE. SGDDAT 
MOV S21 ,SBDDAT 
EMT 


17$: 


zLOAD RECEIVED STATUS 





—- 
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T10 FORMAT CHECK ONES W/ WCE ERROR 
751 
BS :VERIFY THE ADDRESS OF THE WRITE CHECK ERROR 
753 015620 012737 102720 0011 MOV #BUF TWO-2, SGDADR sLOAD EXPECTED ADDRESS 
754 015626 013737 001342 001136 MOV RMBAI , $BDADR SLOAD RECEIVED ADDRESS 
035 015634 162737 000002 001136 SUB #2,$BDADR :DECREMENT RECEIVED ADDRESS 
ie sGET WCE DATA AND VERIFY IT 1S OK 
758 015642 112737 000022 001526 MOVB  #RMDB,GETINX ;SETUP FOR READING RMDB 
£59 015650 112737 000200 001527 MOVB #200,GETINX+1 
761 015656 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
015662 000404 BR 18$ 360 TO 18$ IF NO ERROR 
015664 000240 NOP [RETURN HERE IF ERROR 
015 104 EMT Z ERROR # DEFINED BY GET SUBROUTINE 
0156 137 015742 JMP 20$ TO 20$ IF ERROR 
762 015674 013737 001360 001142 18$: MOV RMDBI , SBDDAT OF OAD RECEIVED DATA WORD 
763 015702 013737 102720 001140 MOV BUF TWO-2,$GDDAT [LOAD EXPECTED DATA WORD 
015710 005137 001140 COM $6 
765 015714 023737 001134 001136 CMP SGDADR, $BDADR z1S ADDRESS 0K?? 
766 015722 001402 BEQ 19$ YES! ! 
767 015724 104340 EMT 340 
768 015726 000405 BR 20$ 
769 015730 19S: 
770 015730 023737 001140 001142 CMP SGDDAT , SBDDAT z1S DATA WORD OK?? 
771 015736 001401 BEQ 20$ YES!! 
772 015740 104341 EMT 341 
r73 015742 20$: 
‘ 775 FRRRERARRARRRRERERERERERRERERRERRRERRERRERERERERERERERERRERRERRE 
tSTEST 11 FORMAT MULTIPLE SECTORS 
RRA EEEEERAERAEREREREAREKRERERREEERAEEEEEEEERE 
015742 tT11: 
015742 000004 SCOPE :SCOPE CAL 
015744 000240 NOP *START OF Fest 
015746 012706 001100 MOV #STACK, SP 3 INITIALIZE STACK POINTER 
015752 013700 001276 MOV SE, *RO = UNIBUS ADDRESS 
015756 013701 001466 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
rg 012762 012757 000011 001226 MOV #11,$TESTN +:SET TEST NUMBER IN APT MAIL BOX 
777 SETUP PARAMETERS FOR GENERATING DATA BUFFER 
778 015770 012737 010000 001444 “mn MOV MT16,RMOFO :16 BIT FORMAT 
780 015776 012737 001057 001446 MOV #559. ,RMDCO CYLINDER, = 559. 
781 016004 012737 001420 MOV ie AO RACK = 2, = 0 
782 016012 012737 itd 4 001414 MOV #-258.*2,RMWCO ‘WORD COUNT a TOR SECTORS (2°S COMP) 
783 016020 012737 101746 001416 MOV WBUFONE,RMBAO :DATA BUFFER ADDRESS 
784 016026 012737 001412 MOV #WH,RMCS10 *WRITE HEADER AND DATA 
:VERIFY THAT SECTOR IS NOT BAD 
016034 004737 032406 JSR PC,BADSCT sCALL BAD SECTOR MODULE 
016040 000405 BR :G0 TO 2$ IF NO ERROR 
| 016042 104401 063446 TYPE  ,SCTMSG ‘TYPE BAD SECTOR MESSAGE 
016046 104 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
sap 916090 000137 016560 i JMP 19$ '60 TO 19$ IF ERROR 
788 016054 012737 065116 001174 MOV MZEROS,$TMPO USE ALL ZEROS DATA PATTERN 
789 016062 012737 000001 001176 MOV #1,STMP1 


Am 
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790 016070 004737 034640 JSR PC ,GENBUF 3G0 GENERATE DATA BUFFER 
791 016074 3$: 


79 :PREPARE DEVICE FOR DATA TRANSFER 
794 016074 004737 031456 JSR PC TSTPRP PREPARE DEVICE, FOR TEST 
01 1541 .WORD 154130 STASK DESCRIPTOR AS FOLLOWS: 
3SEL LECT DEVICE & VERIFY DEVICE AVAILABLE 

*CLEAR CONTROLLER & SELECT DEVICE 
;VERIFY CONTROLLER CLEAR OPERATION 

[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
;VERIFY PACK ACKNOWL 





D 
*RECALIBRATE Fastin OR ‘PIP’ IS SET 
| ~ SVERIFY RECALIGRAT 10N 
016102 000404 BR 4$ :60 TO 4$ IF NO ERROR 
016104 000240 NOP SRETURN HERE IF ERROR 
016106 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
016110 000137 016560 JMP 19$ :G0 TO 19$ IF ERROR 
795 016114 4$: 
797 : SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
798 016114 012737 000005 001412 #SEEK!GO,RMCS10 sCHANGE COMMAND TO SEEK 
799 016122 012702 001555 mov #PUTINX. Re [WRITE REGISTER INDEX TABLE 
800 016126 112722 MOVB = #RMDA, 33: 
801 016132 112728 000034 MOVB = #RMDC. (Re) 
802 016136 112722 000032 MOVB = #RMOF 
803 016142 112722 000000 MOVB grees an 
804 016146 112722 000200 MOVB #200, (R2)+ 
806 016152 904737 036004 JSR PC,PUT 760 WRITE REGISTER(S) WITH PUT SUBROUTINE 
016156 000404 5$ 760 TO 5$ IF NO 
(16160 000240 NOP [RETURN HERE IF 
016162 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
016164 000137 016560 JMP 19$ :GO0 TO 19$ IF ERR 
807 016170 5$: 
809 sSETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
810 016170 004737 035450 JSR PC. GETSTS : SETUP FOR STATUS 
811 016174 004737 036356 48R PC. TIMOUT WAIT FOR SEEK TO COMPLETE 
812 016200 6$: 
814 :G0 READ SEEK STATUS 
815 016200 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
016204 0004 BR 7$ :60 TO 7$ IF NO ERR 
016206 000240 NOP SRETURN HERE IF ERR 
016210 104 EMT TERROR # DEFINED BY GET SUBROUTINE 
016212 000137 016560 JMP 19$ *G60 TO 19$ IF ERROR 
B16 016216 7$: 
818 ‘3 :VERIFY THE RESULTS OF THE SEEK C 
819 016216 004737 044174 JSR PC, SEKSTS 3G0 VERIFY RESULTS OF SEEK OPERATION 
016222 000405 BR BB 760 TO 8$ IF NO ERROR 
0162 4 000240 NOP [RETURN HERE IF ERROR 
016226 104 EMT TERROR # DEFINED BY SEKSTS SUBROUTINE 
01 0047 JSR PC, a(SP)+ -$G0 BACK FOR MORE ERROR CHECKS 
016 32 000137 016560 - JMP 19§ - $60 TO 19$ IF ERROR 


88 


«Am 
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;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 

ou 36 012737 63 001412 MOV #WH'GO,RMCS10 zWRITE HEADER AND DATA 

4 016244 91 7 1 Moy #PUTINK+ Re TEXTEND REGISTER INDEX TABLE 

825 91 50 1127 2 MOVB apm » (Re) 

826 016254 1127 MOVB  #RMBA.( 

827 gi 60 1127 MOVB = #RMCS1 ae 

828 016264 112722 000200 MOVB #200, (R2)+ 

835 016270 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
016274 000404 BR 9$ 60 TO 9$ IE NO ERROR 
016276 000240 SRETURN HERE IF ERROR 
016 104 EMT TERROR # DEFINED BY PUT SUBROUTINE 
016302 000137 016560 JMP 19$ 760 TO 19$ IF ERR 

831 016306 9$: 

B38 ;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS 

834 016306 004737 036356 JSR PC, TIMOUT WAIT FOR COMMAND TO COMPLETE 

836 016312 004737 035534 JSR PC,GET ;60 READ REGISTER(S) WITH GET SUBROUTINE 
016316 000404 BR 10$ £60 0 10$ IF NO ERR ROR 
016320 000240 NOP SE TURN HERE IF ERR 
016322 104000 EMT ERROR # DEFINED BY Ofer SUBROUT INE 
016324 000137 016560 JMP 19$ £60 TO 19$ IF ERROR 

837 016330 10$: 

:VERIFY RESULTS OF WRITE COMMAND 

840 016330 004737 036552 JSR PC,PRIERR :G0 CHECK FOR PRIMARY ERRORS 
016334 000405 BR 11$ *GO TO 11$ IF NO ERROR 
016336 000240 NOP SRETURN HERE IF ERROR 
016340 104 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
016342 0047 JSR PC,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 

= 016344 000137 016560 iain JMP 19$ 7GO0 TO 19$ IF ERROR 

842 016350 004737 051612 JSR PC,DTASTS 760 VERIFY RESULTS OF DATA TRANSFER 
016354 000405 128 £60 TO 12$ IF NO ERROR 
016356 0002-0 RETURN HERE IF ERROR 
016360 1040u0 EMT *ERROR # DEF INED BY DTASTS SUBROUTINE 
016362 004736 JSR PL,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 

_ 016364 000137 016560 an JMP 19$ :GO TO 19$ IF ERROR 

844 016370 004737 037404 JSR PC SECERR £60 CHECK FOR SECONDARY ERRORS 
016374 000405 BR 13 13$ IF NO ERROR 
016376 000240 SRE TURN HER i IF ERROR 
016400 104 EMT ZERROR # DEFINED BY SECERR SUBROUTINE 
016402 0047 JSR PC,a(SP)+ BACK FOR MORE ERROR CHECKS 
016404 000137 016560 JMP 19$ 760 TO 19$ IF ERROR 

B45 016410 13$: 

847 ;WRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 

848 016410 012737 000053 001412 MOV WWCH'GO,RMCS10 ;WRITE CHECK COMMAND 

850 016416 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
016422 000404 BR 14$ *GO TO 14$ IF NO ERROR 
016424 000240 RETURN HERE IF ERROR 
016426 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
0164 000137 014560 JMP 19$ 760 TO 19$ IF ERROR 

851 016434 148: 
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FORMAT MULTIPLE SECTORS 


001444 
001444 


sWAIT FOR WRITE ah TO COMPLETE AND GET STATUS 
JSR PC, TIMOUT sWAIT FOR WRITE CHECK TO FINISH 


JSR PC,GET £60 READ REGISTER(S) WITH GET SUBROUTINE 
BR 15$ 0 15$ IF NO ERROR 
NOP 2 OP TURN HERE IF ERROR 
EMT TERROR # DEF INED BY GET SUBROUTINE 
JMP 19$ :G0 TO 19$ IF ERROR 
15$: 
;VERIFY THE RESULTS OF WRITE CHECK OPERATION 
JSR PC,PRIERR :60 CHECK FOR PRIMARY ERRORS 
BR 16$ 36 16$ IF NO ERROR 
NOP 2 OP TURN GERE IF P ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUT INE 
JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
al JMP 19$ 760 TO 19$ IF ERROR 
JSR PC DIASTS 760 VERIFY RESULTS OF DATA TRANSFER 
BR 178 360 17$ if NO ERROR 
NOP 1 OO len MERE IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
- JMP 19$ 760 TO 19$ IF ERROR 
JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
BR 18$ 0 18$ IF NO ERROR 
NOP cRETURN H HERE IF ERROR 
EMT ZERROR ¢ DEF INED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ CK FOR MORE ERROR CHECKS 
ie JMP 19$ 760 TO 19$ IF ERROR 
gIT #SSEI,RMOFO sTEST 1 16 BIT MODE W/ SSEI YET ? 
BIS #SSEI,RMOFO 3SET SSEI IN OFFSET AND 
JMP 1$ :TEST AGAIN 
19$: 
FARA AAERERERRERERERERERERERARERREREEREREREERAARERRERRERERE 
tSTEST 12 READ HEADER & DATA W/ HEAD SWITCHING 
ee amas asp caesium aman aemita atenenr esate 
SCOPE :SCOPE C 
NOP >START OF TEST 
MOV #STACK,SP ZINITIALIZE STACK POINTER 
MOV =R IBUS ADDRESS 
MOV TSTQUE,R 3(R1) = DEVICE BEING TESTED 
MOV #12, ST ERIN *:SET TEST NUMBER IN APT MAIL BOX 
SETUP PARAMETERS s FOR GENERATING DATA BUFFER 
130, RM eTRACK = 2, SECTOR = 30. 
- MOV FEATI6 RAO hero FORMAT 
MOV #559. ,RMDCO pe = 559. 
MOV 4-258. #2,RMWCO :WORD COUNT FOR 2 SECTORS (2°S COMP) 
MOV E,RMBAO :DATA BUFFER ADDRESS 


SEQ al 


am 


1s . 
CZRNEAO RMBO FCTNL PI2 MACRO VOG-00 28-JAN-82 16:38:23 PAGE 15-28 SEQ 0099 C 
Ti2 READ HEADER & DATA W/ HEAD SWITCHING T 
B81 016644 2s: 
833 ;PREPARE DEVICE FOR DATA TRANSFER 
884 016644 004737 031456 JSR TSTPRP ZPREPARE DEVICE FOR TEST 
016650 154130 WORD 154130 ZTASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
AR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 
3PACK ACKNOWLEDGE IF VOLUME NOT VALID 
ZVERIFY PACK ACKNOWL EDGE es 
CALIBRATE IF SKI" OR "PIP" IS SET 


RECAL 
;VERIFY_RECALIBRATI 
360 74 ERR 


016652 000404 BR 3$ 0 3$ IF 
016654 000240 NOP SRETURN HERE IF ERROR 
016656 104 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
016660 000137 017220 JMP 13$ :G0 TO 13$ IF ERROR 
885 016664 3$: 
887 sSETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
888 016664 012737 000005 001412 MOV #SEEK!GO,RMCS1 :CHANGE C SEEK 
889 016672 01 202 001555 MOV #PUTINX,R2 [WRITE REGISTER INDEX TABLE 
890 016676 112722 000006 MOVB  #RMDA, (R2)+ 
891 016702 112722 000034 MOVE —#RMDC, (RO) + 
a4 016706 112722 000032 MOVB  #RMOF.(R2)+ © 
893 016712 112722 000000 MOVB —s #RMCS1, (R2)+ 
894 01 112722 000200 MOVB #200, (R2)+ 
896 016722 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
016726 000404 BR 4$ “GO TO 4$ IF NO ERROR 
16730 000240 NOP SRETURN HERE IF ERROR 
016732 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
016734 000137 017220 JMP 13$ :G0 TO 13$ IF ERROR 
897 016740 4$: 
SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
16740 004737 035450 JSR PC,GETSTS :SETUP FOR STATUS 
901 016744 004737 036356 4ER PC. TIMOUT [WAIT FOR SEEK TO COMPLETE 
90¢ 016750 5$: 
904 :G0 READ SEEK STATUS 
905 016750 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
016754 000404 BR 65 [G0 TO 6$ IF NO ERROR 
016726 iv EAT SERWOR # DEFINED BY ET SUBROUT INE 
016762 b00937 017220 JMP 13$ :G0 TO 13$ IF ERROR 
906 016766 6$: 
908 :VERIFY THE RESULTS OF THE SEEK COMMAND 
909 016766 004737 044174 JSR PC, SEKSTS :$0 O VERIFY R RESULTS OF SEEK OPERATION 
016772 000405 BR 7$ NO ERROR 
016774 000240 NOP OP TURN Nene TF ERROR 
OES 0047 OoR PC. a(SP)+ ERROR a SE te 
917002 $0073? 017220 “a JMP 13$ *G0 TO 13$ IF ERROR 


;SETUP AND EXECUTE READ HEADER AND DATA COMMAND 
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38 Pert eae 
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READ HEADER & DATA W/ HEAD SWITCHING 
913 017006 ou 737 001412 MOV #RH!GO,RMCS10 ;READ HEADER AND DAT 
914 017014 0127 $0007 MOV #PUT INK R2 SEXTEND REGISTER INDEX TABLE 
915 017020 1127 MOVB Re} 
gig 17024 1127 MOVB eye (RS) 
917 017030 1127 MOVB = #RMCS4 (R2)+ 
18 17034 112722 0002 MOVB #200, (R2)+ 
920 017040 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
017044 000404 BR 8$ :G0 TO 8$ IF NO ERROR 
017046 000240 SRETURN HERE IF ERROR 
017050 104 EMT TERROR # DEFINED BY PUT SUBROUTINE 
017052 000137 017220 JMP 13$ +69 TO 13$ IF ERROR 
92 
924 017056 004737 036356 JSR PC, TIMOUT WAIT FOR COMMAND TO COMPLETE 
926 017062 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
517066 000404 BR 9$ :G0 TO 9$ IF NO ERROR 
017070 000240 NOP SRETURN HERE IF ERROR 
017072 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
; 017074 000137 017220 JMP 13$ :60 TO 13$ IF ERROR 
CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST, IF SO 
36) 017100 5D0 NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 
931 017100 032737 000040 001400 BIT #SSE,RMER2ZI sIS "SSE* BIT SET ? 
17106 001030 BNE 12$ ‘BR IF YES 


:VERIFY RESULTS OF READ COMMAND 
036552 JSR PC,PRIERR 360 CHECK FOR PRIMARY ERRORS 
BR 10$ :GO TO 10$ IF NO ERROR 
_ SRETURN HERE IF ERROR 
TERROR # DEF INED BY PRIERR SUBROUTINE 
736 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
137 017220 JMP 13$ *GO TO 13$ IF ERROR 
37 


S35 


2 
S 
= 


10$: 
051612 JSR PC ,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 11§ :60 TO 11$ IF NO ERROR 


NOP ‘RETURN HERE IF ERROR 

S ERROR ‘ DEFINED BY DTASTS SUBROUTINE 
PC.a(SP)+ :GO0 BACK FOR MORE ERROR CHECKS 
017220 as 138 :GO TO 13$ IF ERROR 


037404 JSR PC, SECERR £60 CHECK FOR SECONDARY ERRORS 
BR 12$ 12$ IF NO ERROR 
2 OP TURN HER iF IF PER ROR 
TERROR # DEFINED BY SECERR SUBROUTINE 
PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
017220 ot 13§ :GO TO 13$ IF ERROR : 
001000 001444 iT #SSEI,RMOFO TEST 16 BIT MODE W/ SSEI ? ; 


001037 001420 MOV #TA2!31.,RMDAO STRACK: = CTOR = 31. 
Oteeoe 001444 BIS #SSEI ,RMOFO 3SET SSEI ‘git IN OFFSET AND 
01662 JMP 1$ :TEST AGAIN 
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ADER & DATA W/ HEAD SWITCHING 


SEQ 0101 | a 


__ 


RARER REEEEERARARREREREEERAREERARERERAREREERERAERRREREEEEREEEEE 


READ HEADER & DATA W/ MID TRANSFER SEEK 


SS 


secu om 
sSTART OF TEST 
INITIALIZE STACK POINTER 


UNI 
3(R1) = DEVICE BEING TESTED 
33SET TEST NUMBER IN APT MAIL BOX 


3 SETUP ree oe Te DATA ae 


#-258.%2,RMWCO 
#BUF ONE , RMBAO 


zPREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP 


T LAST TRACK AND 
PAST eh OR 
716 BIT FORMAT 


hot yes = 559. 
OUNT FOR ‘. _— (2°S COMP) 
{DATA BUFFER ADDR 


PREPARE DEVICE FOR TEST 
3TASK DESCRIPTOR AS FOLLOWS: 
;SELECT DEVICE & VER IFY DEVICE AVAILABLE 
CLEAR CONTROLLER & SELECT DEVICE 
VERIFY CONTROLLER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
ZVERIFY PACK ACKNOWLEDGE | 
CALIBRATE IF SKI" OR "PIP" IS SET 
SVERIFY RECALIBRATI 
G0 TO 3$ IF NO ER 
RETURN HERE IF ERROR 
ZERROR # DEFINED BY TSTPRP SUBROUTINE 
G0 TO 13$ IF ERROR 


;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER 
MOV EEK so 8 RMCS10 


2 I IOO 
2 
SN foponoronrn 


= 


=o 
RS 
iw) 
S 


S 
S 


Sooooo GOooOoooo 
w 


S323 aoe od 
NNN | 


OMMAND TO SEEK 
[WRITE REGISTER INDEX TABLE 


3 SETUP ‘?. READING Sratys AND THEN WAIT FOR SEEK TO COMPLETE 
PC, or OU S 3SETUP F TU 
SWAIT FOR SEEK TO COMPLETE 
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T13 READ HEADER & DATA W/ MID TRANSFER SEEK 


004737 
04 


J ar er re 
forornonoeroera 


Ww 
=] i=) 
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RRR 
SN 
&rn On 
3s Co ---——00 
gsee 
so 
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=== 
No 


035534 
017674 


044174 


017674 


000073 
0 


017674 


036356 
035534 


017674 


000040 


036552 


017674 


001412 


001400 


5$: 


3G0 READ SEEK STATUS 
JSR PC GET 


‘60 READ _REGISTER(S) WITH GET SUBROUTINE 
6$ IF NO ER Ron 


NOP SRETURN HERE IF ERR 
EMT ‘ERROR # DEFINED BY Ofer SUBRONT INE 

a JMP 13$ :GO0 TO 13$ IF ERROR 

sVERIFY THE RESULTS OF THE SEEK COMMAND 
JSR PC,SEKSTS 3G0 VERIFY RESULTS OF SEEK OPERATION 
BR :GO TO 7$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY SEKSTS SUBROUT INE 
JSR PC,a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
JMP 13$ :GO0 TO 13$ IF ERROR ‘ 

7$: 

:SETUP AND EXECUTE READ HEADER AND DATA C 
MOV H!GO,RMCS10 :READ HEADER AND DATA 
MOV fut inks R2 S EXTEND REGISTER INDEX TABLE 
MOVB R25+ ee, 
MOVB R2)+ ° , 
MOVB wnneA tho , \ 
MOVB #200, (R2)+ . 
JSR PC,PUT :GO WRITE REGISTER(S) WITH oT SUBROUT INE 
BR 84 :GO TO 8$ IF NO ERROR 
NOP : RETURN HERE IF ERROR 
EMT ‘ERROR # DEFINED BY PUT SUBROUTINE 
JMP 13$ G0 TO 13$ IF ERROR 

8$: 

;WAIT FOR READ COMMAND TO COMPLETE AND READ STATUS 
JSR PC, TIMOUT sWAIT FOR COMMAND TQ COMPLETE 
JSR PC,GET :G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 9$ 360 TO 9$ IF NO ERROR 
NOP "RETURN HERE IF ERROR 
EMT ZERROR # DEFINED BY GET SUBROUTINE 
JMP 13$ 0 TO 13$ IF ERROR Fj 


CHECK TO SEE _IF THIS SECTOR WAS SKIP SECTORED FIRST, IF SO 
jD0 NCT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 


BIT #SSE,RMER2I1 :1S "SSE" BIT Set ? 
BNE 12$ 38R IF YES 
sVERIFY RESULTS OF READ COMMAND 
JSR PC, PRIERR :60 CHE Ck FOR PRIMARY ERRORS 
BR 108 10$ IF NO ERROR 
NOP OP TURN HER if IF PER ROR a 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
JMP 13$ :GO 10 i3S- IF ERROR 


10$: 


ee F 
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READ HEADER & DATA W/ MID TRANSFER SEEK 
1014 01757 004737 051612 JSR PC. DTASTS 760 VERIFY RESULTS OF DATA TRANSFER 
01760 5 BR 118 £60 TO 11$ IF NO ERROR 
017604 000240 NOP SRETURN HERE IF ERROR 
017606 104 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
017610 0047 JSR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
ats O17612 000137 017674 ws JMP 13$ :GO TO 13$ IF ERROR 
1016 017616 004737 037404 JSR PC,SECERR :G0 CHECK FOR SECONDARY ERRORS 
017622 000405 BR 128 760 TO 12$ IF NO ERROR 
017624 000240 NOP SRETURN HERE IF ERROR 
017626 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
017630 004736 JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
a 017632 000137 017674 - JMP 13$ :G0 TO 13$ IF ERROR 
1018 017636 032737 001000 001444 BIT #SSEI,RMOFO :TEST 16 BIT MODE W/ SSEI SET ? 
1019 017644 001013 BNE “YES ! 
1020 017646 013737 001420 MOV LSTRK,RMDAO :START LAST TRACK AND 
1021 017654 112737 000037 001420 MOVB #31.,RMDAO ;LAST SECTOR 
1022 017662 052737 001000 001444 BIS #SSEI,RMOFO SET SSEI IN OFFSET AND 
1023 017670 000137 017270 JMP 1$ ‘FESTA AGAIN. 
1024 017674 13$: 
1026 {RRRAARAREREERERERERERRERRERERERERARERARRRERERERRRERRERRERRERERE 
TEST 14 FORMAT W/ IMPLIED SEEK 
ERRAARARAAAERRERRARAREREERAREREEEREERERERERERERRRERERERERERERRERD 
017674 TST14: 
017674 00000. SCOFE :SCOPE CALL 
017676 000240 NOP SSTART OF TEST 
017700 012706 001100 MOV #STACK,SP 3 INITIALIZE STACK POINTER 
017704 013700 001276 MOV SE RO ‘RO = UNIBUS ADDR 
017710 013701 001466 MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 
a 017714 012737 000014 001226 MOV #14,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
1028 :SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1029 017722 012737 001057 001446 MOV #559. .RMDCO :CYLINDER = 559. 
1030 017730 012737 001000 001420 MOV #TA2, RMDAO s TRACK = .. SECTOR = 0 
1031 017736 012737 010000 001444 MOV #FMT16,RMOFO 316 BIT FORMA 
1032 017744 012737 176774 001414 MOV #-258.%2,RMWCO :WORD COUNT FOR 2 SECTORS (2°S COMP) 
1033 017752 012737 101716 001416 MOV #BUFONE.RMBAO :DATA BUFFER ADDRESS 
1034 017760 012737 062 001412 MOV #WH,RMCS10 ‘WRITE HEADER AND DATA 
1036 ;VERIFY THAT SECTOR IS NOT BAD 
017766 004737 032406 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 
017772 000405 BR 1$ 760 TO 1$ IF NO ERROR 
017774 104401 063446 TYPE  ,SCTMSG TYPE BAD SECTOR AGE 
20000 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
vin 920002 000137 020512 “a JMP 18$ 'GO TO 18$ IF ERROR 
1038 O5 0008 012737 065116 001174 Moy AZEROS ,STMPO SUSE ALL ZEROS DATA PATTERN 
1039 020014 012737 000001 001176 MOV #1,$TMP1 
1040 020022 004737 034640 JSR PC; GENBUF 3G0 GENERATE DATA BUFFER 
1041 020026 2$: 
10%8 :PREPARE DEVICE FOR DATA TRANSFER 
1044 020026 004737 031456 JSR PC TSTPRP sPREPARE DEVICE FOR TEST 
020032 154130 “WORD 154130 * TASK DESCRIPTOR A 


FOLLOWS: 
TSELECT DEVICE & VERIFY DEVICE AVAILABLE 
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T14 FORMAT W/ IMPLIED SEEK 


CLEAR CONTROLLER & SELECT 44h 
R LER CLEAR OPERATION 
SPACK ACKNOWLEDGE IF VOLUME NOT VALID 


VERIFY PACK ACKNOWLEDGE 
CALIBRATE IF aT tes OR ‘PIP*’ IS SET: 


S VERIFY RECALIBRATI 
020034 000404 BR 33 :GO TO 3$ IF NO ERHON 
920036 000240 NOP [RETURN HERE IF ERROR 
0040 104 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
020042 000137 020512 JMP 18$ :G0 TO 18$ IF ERROR 
1045 020046 3$: 
104 ; SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE OFF CYLINDER 
1048 020046 013737 001446 020514 MOV RMD CO. 19$ :SAVE CYLINDER ADDRESS 
1049 020054 012737 000000 001446 MOV co SEEK fo” FIRST CYLINDER 
1050 020062 012737 000005 001412 MOV oeeee iGo, RMCS10 [CHANGE COMMAND TO S$ 
1051 020070 012708 001555 MOV #PUTINX, SWRITE REGISTER INDEX TABLE 
105¢ 020074 112722 000 MOVB = #ARMDA, (R2)+ 
1053 020100 112722 00003 MOVB  #RMDC.(R2)+ 
1054 020104 112722 000032 MOVB  #RMOF .(R2)+ 
1055 020110 112722 000000 MOVB = #RMCS1, (R2)+ 
1056 020114 112722 MOVB #200, (R2)+ 
1058 020120 0064737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
0124 000404 4$ *GO TO 4$ IF NO ERROR 
020126 000240 NOP [RETURN HERE IF ERROR 
20130 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
020132 000137 020512 JMP 18$ :GO TO 18$ IF ERROR 
1059 020136 4$: 
1061 SETUP FOR, READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE 
1062 020136 004737 035450 PC,GETSTS sSETUP FOR STATU 
1063 020142 004737 036356 4SR PC. TIMOUT *WAIT FOR SEEK TO COMPLETE 
1064 020146 5$: 
1066 :G0 READ SEEK STATUS 
1067 020146 004737 035534 | JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
020152 000404 > i 6h £60 TO 6$ IF NO ERROR 
020154 000240 NOP SRETURN HERE I RROR 
020156 104000 EMT TERROR # DEFINED. BY GET SUBROUTINE 
020160 000137 020512 JMP 18$ :G0 TO 18$ IF ERROR 
1068 020164 6$: 
1070 sVERIFY THE RESULTS OF THE SEEK COMMAND 
1071 029164 004737 044174 JSR PC,SEKSTS :60 VERIFY RESU RESULTS OF SEEK OPERATION 
020170 000405 BR 7$ NO ERROR 
020172 000240 NOP «OP TURN HER E IF ERROR 
020174 104 EMT TERROR # DEF INED BY SEKSTS SUBROUTINE 
020176 004 JSR PC, a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
920200 000137 020512 JMP 18$ :G0 TO 18$ IF ERROR 
107 0204 7$: 
1074 ;SETUP AND PECTS nae HEADER AND DATA COMMAND 
1075 0 13737 020514 4 001646 MOV RESTORE DISK ADDRESS | 
1076 0 0 iF 12737 MOV GO,RMCS10 {WRITE HEADER AND DAT 
10 0 3 1 702 1360 MOV rut ines R2 SEXTEND REGISER INDEX TABLE 
1078 020224 1127 MOVB Ss 
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020372 
020376 


012737 
004737 
04 


0004 
000240 
104 
00013 


004737 


000004 
000000 
000200 


036004 


020512 


036356 
035534 


020512 


036552 


020512 
051612 


020512 
037404 


020512 


000053 
036004 


020512 


036356 


001412 


MOVB 

MOVB Games oP 
MOVB #200, (R2)+ 
JSR PC,PUT 

BR as 

NOP 

EMT 

JMP 18$ 


360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
0 TO 8$ IF NO ERROR 


36 

RETURN HERE IF ERROR 

ERROR # DEFINED BY PUT SUBROUTINE 
760 TO 18$ IF ERROR 


sWAIT FOR WRITE Sees TO COMPLETE AND READ STATUS 
JSR PC, TIMOUT 3 WAIT 


JSR PC GET 
BR 9$ 


FOR COMMAND TO COMPLETE 
G0 READ REGISTER(S) WITH GET SUBROUTINE 
0 TO 9$ IF NO ER Aen 


36 

ZRETURN HERE IF ERR 

ZERROR # DEFINED BY “GET SUBROUT INE 
760 TO 18$ IF ERROR 


6 ver $7 PRIMARY ERRORS 
O 10$ IF NU ERROR 

RETURN HERE IF FER ROR 

;ERROR # DEFINED BY PRIERR _— 

;GO BACK FOR MORE ERROR CHECKS 

360 TO 18$ IF ERROR 


260 at 4 RESULTS OF DATA TRANSFER 
760 TO 11$ IF NO ERROR 

RETURN HERE IF ERROR 

ERROR : DEFINED BY DTASTS SUBROU1 INE 
760 BACK FOR MORE ERROR CHECKS 

:G0 TO 18$ IF ERROR 


2 ee 7 pa andy ERRORS 
12$_IF NO ERROR 
RET URN HER ef IF ERROR 
;ERROR & pee Stee BY SECERR SUBROUTINE 
CK FOR MORE ERROR CHECKS 
$60 TO 18$ IF ERROR 


sWRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN 
MOV OMMAND 


NOP 
EMT 
JMP 18$ 
9$: 
:VERIFY RESULTS OF WRITE COMMAND 
JSR PC.PRIERR 
BR 10$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 18$ 
10$: 
JSR PC DTASTS 
BR 11$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 18$ 
11$: 
JSR PC,SECERR 
BR 128 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 18$ 
12$: 
#WCH!GO,RMCS10 
JSR PC PUT 
BR 13$ 
NOP 
EMT 
JMP 18$ 


13$: 


760 TO 


sWRITE CHECK C 
360 WRIT 
760 TO 1 
;RETURN 
ERROR ; 


mesierents? WITH PUT SUBROUTINE 
$ IF RROR 


HERE IF PER ROR 
DEFINED BY PUT SUBROUTINE 
8$ IF ERROR 


zWAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS 
JSR PC, TIMOUT 


sWAIT FOR WRITE CHECK TO FINISH 


SEQ 0105 
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T14 


FORMAT W/ IMPLIED SEEK 


1109 A ah OORT ae 035534 

0204 8 04 

020422 000240 

020424 104 

020426 0001 020512 
1110 020432 
1111 
Ati¢ 
1113 020432 004737 036552 

020436 00040 

020440 000240 

020442 104000 

020444 0047 

020446 0001357 020512 
1114 020452 
1115 020452 004737 051612 

020456 000405 

020460 000240 

020462 104000 

020464 004736 

20466 000137 07:0512 

1116 020472 
1117 020472 004737 37404 

020476 000405 

20500 000240 

020502 104000 

020504 004736 

020506 000137 020512 
HS 020512 
i 020512 000401 
1122 020514 000000 
1123 
1124 020516 
1125 
1126 

020516 

020516 000004 

020520 000240 

020522 816708 001100 

020526 013700 001276 

020532 013701 dhe 
1127 020536 012737 000015 001226 
1128 
1129 020544 012737 001057 001446 
1130 020552 012737 001000 001420 
1137 020560 012737 011000 001444 
1135 020566 
1133 0205 012737 177376 001414 
1134 020574 012737 jos 001416 
We 020602 012737 000062 001412 
1137 


JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
BR 14$ 760 TO 14$ IF NO ERR 
NOP [RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY GET SUBROUTINE 
JMP 18$ 760 TO 18$ IF ERROR 
14$: 
:VERIFY THE RESULTS OF WRITE CHECK OPERATION 
JSR PC.PRIERR 0 CHECK FOR PRIMARY ERRORS 
BR 15$ G0 TO 15$ IF NO ERROR 
NOP 5 OP TURN URN HERE IF ERROR 
EMT ERROR r’ DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP) + CK FOR MORE ERROR CHECK 
te JMP 18$ 760 TO 18% IF ERROR 
JSR PC,DTASTS 260 VERIFY RESULTS OF DATA TRANSFER 
BR 16$ 360 TO 16$ IF NO ERROR 
NOP SRETURN HERE IF TRROR 
EMT ERROR ‘ DEF INEL & DTASTS SUBROUTINE 
JSR PC,a(SP)+ 760 BACK FOR MORE E2ROR CHECKS 
a JMP 18$ 760 TO 18$ IF ERROR 
JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
BR 17$ 360 0 17$ IF NO ERROR 
NOP RETURN H HERE IF ERROR 
EMT ZERROR r DEF INED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ CK FOR MORE ERROR CHECKS 
JMP 18$ 60 TO 18$ IF ERROR 
17$: 
18$: BR 20$ 
19$: .WORD 0 : TEMPORARY STORAGE 
20$: 
PITITITI TITLE TLL Lit tt ihtiititidddt het h thee 
tSTEST 15 FORMAT EACH SECTOR ADDRESS 
thet earner trae es 
ScoP :SCOPE CALL 
NOP *START OF TEST 
MOV #STACK, SP 3 INITIALIZE STACK POINTER 
MOV = UNIBUS ADDRESS 
MOV TSTQUE ,R1 HR) = DEVICE BEING TESTED 
MOV #15, $TESTN °:SET TEST NUMBER IN APT MAIL BOX 
;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
MOV . -RMDCO :CYLINDER = 559. 
- MOV #TA2 .RMDAO ‘TRACK = 2, SECTOR = 0 
i MOV #FMT16!SSE1,RMOFO £16 BIT = FORMAT 
MOV 4-258. RMWCO 32 + 256 WORDS (2°S COMP) 
MOV ONE , RMBAO ‘DATA BUFFER ADDRESS 
MOV wa R mCS10 ‘WRITE HEADER AND DATA 


;VERIFY THAT SECTOR IS NOT BAD 


ee ek ee ed ed ed ed ws wd od I I 
a eee ee ee ee ee Tr) 
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FORMAT EACH SECTOR ADDRESS 


020610 004737 032406 JSR PC,BADSCT :CALL BAD SECTOR MODULE 
020614 000405 BR :G0 TO 2$ IF NO ERROR 
0 0616 104401 063446 TYPE  ,SCTMSG YPE BAD SECTOR MESSAGE 
0 104 EMT *ERROR # DEFINED BY BADSCT SUBROUTINE 
0 06 4 000137 021260 - JMP 16$ :GO TO 16$ IF ERROR 
39 0206 012737 001420 001174 MOV #RMDAO $TMPO SUSE SECTOR FOR DATA PATTERN 
40 020636 01 30 000001 001176 MOV TMP1 
41 020644 004737 034540 JSR 40 + ENBUF :G0 GENERATE DATA BUFFER 
4¢ 020650 3$: 
44 sPREPARE DEVICE FOR DATA TRANSFER 
45 020650 004737 031456 JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 
020654 154130 .WORD 154130 [TASK DESCRIPTOR AS FOLLOWS: 
3SELECT DEVICE i VERIFY DEVICE AVAILABLE 
EAR CONTROLLER & SELECT DEV ICE 
:VERIFY SOA TROL LER CLEAR OPERATION 
PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE saad 
CALIBRATE IF ‘‘SKI'’ OR ‘PIP’ IS SET 
VERIFY RECALIBRAT ION 
020656 000404 8R 4$ 360 TO 4$ IF NO ERROR 
020660 000240 NOP SRETURN HERE IF ERROR 
020662 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
020664 000137 021260 JMP 16$ [60 TO 16$ IF ERROR 
46 020670 4$: 
48 ;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
49 020670 012737 000063 001412 MOV #WH!GO,RMCS10 :WRITE HEADER AND DAT 
50 020676 012702 001555 V NX ,R2 ‘WRITE REGISTER INDEX TABLE 
51 020702 112722 000006 MOVB RMDA, (R2) 
5 020706 112722 000034 MOVB *(R2) 
53 020712 112722 000032 MOVB = #RMOF. (R2) 
54 020716 112722 000002 MOVB = #RMWC. (RO) 
55 020722 112722 000004 MOVB  #RMBA. (R2) 
56 020726 112722 000000 MOVB  #RMCS1, (R2 
3 020732 112722 000200 MOVB #200, (R2)+ 
59 020736 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
020742 000404 BR 5$ ‘GO TO 5$ IF NO ERROR 
020744 000240 SRETURN HERE IF ERROR 
020746 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
020750 000137 021260 JMP 16$ £60 TO 16$ IF ERR 
020754 5$: 
;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
020754 004737 035450 JSR PC,GETSTS 
020760 004737 036356 JSR PC. TIMOUT :WAIT FOR COMMAND TO COMPLETE 
020764 004737 035534 JSR PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
020770 000404 BR 6$ TD 6$ IF NO ER ROR 
020772 000240 NOP “RETURN HERE IF ERR 
020774 104000 EMT TERROR # DEFINED BY Ofer SUBROUT INE 
im 920776 000137 021260 ce JMP 16$ +60 TO 16$ IF ERROR 


;VERIFY RESULTS OF WRITE COMMAND 


SEQ 0107 


% o2 


Ooooooo 


MMT 


—- abot 


Moronoenroeres 


098005 
000240 
104 
004 
00013 


004737 
004737 
04 


ess 
ea: 


gasses gessee 
Bes Sheers 


=N 
Se 
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EACH SECTOR ADDRESS 


036552 


021260 
051612 


021260 
037404 


021260 


000073 
102722 


036004 


021260 


036356 
035534 


021260 


036552 


021260 
051612 


021260 





SEQ 0108 


JSR PC,,PRIERR 3G0 CHECK FOR PRIMARY ERRORS 
BR 7$ NO ERROR 


:G0 TO 7$ IF 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
~ JMP 16$ :G0 TO 16$ IF ERROR 
JSR PC,DTASTS :60 VERIFY RESULTS OF DATA TRANSFER 
BR 8$ 0 8$ IF NO ERROR 
NOP ZRETURN, HERE IF ERROR 
EMT ZERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ "GO BACK FOR MORE ERROR CHECKS 
- JMP 16$ 760 TO 16$ IF ERROR 
JSR PC, SECERR 360 CHECK FOR SECONDARY ERRORS 
BR 9$ 760 TO 9$ IF NO ERROR 
NOP SRETURN HERE IF ERROR 
EMT ERROR " DEFINED BY SECERR SUBROUTINE 
JSR PC, a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
a JMP 16$ 'GO TO 16$ IF ERROR 


3READ a AND DATA FOR SECTOR JUST WRITTEN 
#RH!GO,RMCS10 sREAD HEADER & DATA COMMAND 
MOV #8UF TWO, RMBAO 3CHANGE BUS ADDRESS 


JSR PC PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 10$ *60 TO 10$ IF NO ERROR 

NOP [RETURN HERE IF ERROR 

EMT TERROR # DEFINED BY PUT SUBROUTINE 

JMP 16$ 760 TO 16$ IF ERROR 


10$: 


;WAIT FOR READ TO COMPLETE AND GET STATUS 
JSR PC, TIMOUT sWAIT FOR READ 10 COMPLETE 


JSR PC,GET GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 11$ :GO TO 11$ IF NO ERROR 
NOP ?RETURN HERE IF ERROR 
EMT ; TERROR # DEFINED BY GET SUBROUTINE 
JMP 1€3 760 TO 16$ IF ERROR 
11$: 
:VERIFY THE RESULTS OF READ OPERATION 
JSR PC .PRIERR G0 CHECK FOR PRIMARY ERRORS 
12$ 0 TO 12$ IF NO ERROR 
NOP ‘RETURN HERE IF ERROR 
EMT TERROR # DEF INED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ *G0 BACK FOR MORE ERROR CH ECKS 
ion JMP 16$ :GO TO 16$ IF ERROR 
JSR PC DTASTS :60 VERIFY RESULTS OF DATA TRANSFER 
BR 13$ 36 13$ IF NO ER ROR 
NOP < BP UN URN HERE IF ERROR 
EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC, a(SP)+ 60 BACK FOR MORE ERROR CHECKS 
JMP 16$ :GO0 TO 16$ IF ERROR 
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ao FORMAT EACH SECTOR ADDRESS 
1194 021176 13$: 
1195 02117 004737 037404 JSR PC, SECERR 360 CHECK FOR SECONDARY ERRORS 
0 120 05 BR 14 760 TO 14$ IF NO ERROR 
921204 000240 NOP GRETURN HERE IE ERROR 
021 06 1 EMT TERROR # DEF INED BY SECERR SUBROUT INE 
02121 7 JSR PC, a@(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
021212 137 021260 JMP 16$ :GO TO 16$ IF ERROR 
1196 021216 14$: 
1197 
1198 :VERIFY DATA 
1199 021 1 004737 035106 JSR PC, CMPBUF :G0 COMPARE WRITE, READ DATA BUFFERS 
31 22 101716 .WORD BUFONE *STARTING ADDRESS OF WRITE BUFFER 
021224 102722 * WORD BUF TWO : STARTING ADDRESS OF READ BUFFER 
021226 000404 BR 15$ "GO TO 15$ IF NO ERROR 
021230 000240 NOP SRETURN HERE IF ERROR 
021232 104000 EMT ZERKOR # DEFINED BY CMPBUF SUBROUTINE 
a 021234 000137 021260 JMP 16$ :G0 TO 16$ IF ERROR 
1201 » INCREMENT ADDRESS AND FORMAT NEXT SECTOR 
1202 021240 15$: 
1203 021240 095237 001420 ING PMDAO sADVANCE SECTOR COUNT 
1204 021244 122737 000037 CMPB ss #3 1.,RMDAO ;DONE |ALL SECTORS?? 
1205 021252 103402 BLO 16$ sYES! 
1206 021254 000137 020566 JMP 60 HI NEXT SECTOR 
1207 021260 16$: 
1209 PTTTTITITTTTTTTTTLELLTL ELLE 
; TEST 16 FORMAT EACH TRACK ADDRESS 
REAR AEEEEREEKEERERERAERRAEREREAEEREREEEEERREREREEREEKE 
021260 iST16: 
021260 000004 :SCOPE CALL 
021262 000240 NOP ‘START OF TEST 
21264 012706 001100 MOV #STACK,SP 3 INITIALIZE STACK POINTER 
021270 013700 001276 MOV SE RO = UNIBU R 
021274 013701 001466 MOV ait R1 (RD = DEVICE BEING TESTED 
iis 21 012737 000016 MOV #16,$TESTN [;SET TEST NUMBER IN APT MAIL BOX 
1211 ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
21 021306 012737 001060 MOV #560. ,RMDCO :CYLINDER = 560. 
1213 021314 012737 000000 MOV #0,RMDAO *TRACK = 0, SECTOR = 0 
1214 0213 2 012737 010000 se MOV #FATI6,RMOFO 316 BIT FORMAT 
1216 021330 012737 177376 MOV #-258. RAWCO, 32 + 256 WORDS (2°S COMP) 
1217 021336 012737 101716 MOV #BUF ONE ,R ‘DATA BUFFER ADDRESS 
1218 021344 012737 2 MOV UL RM anesion SWRITE HEADER AND DATA 
1220 :VERIFY THAT SECTOR IS NOT BAD 
021352 004737 032406 JSR PC ,BADSCT CALL BAD SECTOR MODULE 
021356 000405 BR 760 TO ORT NO_ERROR 
021360 104401 063446 TYPE  ,SCTMSG STYPE BAD TE CTOR MESSAGE 
021364 104000 EMT SERROR # DEFINED. By BADSCT SUBROUTINE 
ae 021366 000137 022022 - JMP 16$ :G0 TO 16$ IF E 
1222 021378 012737 001420 MOV #RMDAO STMPO —«; USE_ TRACK FOR DATA PATTERN 
1223 021400 o12737 000001 MOV 1,$TMP1 
1224 021406 004737 034640 JSR 40 * GENBUF 360 GENERATE DATA BUFFER 
1225 02141 3$: 





G 9 
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CZRNEAO 
T16 FORMAT EACH TRACK ADDRESS 
é 7 
133¢ sPREPARE DEVICE FOR DATA TRANSFER 
1228 g21412 904737 031456 JSR PC ISTPRP sPREPARE DEVICE FOR TEST 
021416 “WORD 154130 [TASK DESCRIPTOR A 


FOLLOWS: 
3SELECT DEVICE :. VERIFY DEVICE AVAILABLE 
LEAR CONTROLLER © SELECT DEVICE 
VERIFY CONTROLLER CLEAR 
ACKNOWLEDGE IF wae NOT VALID 


| 
:VERIFY PACK ACKNOULEDGE 
TE ‘SkI'' OR “PIP IS SET 
3VERIFY RECALIBRATION 
021420 000404 BR 4$ 0 4$ IF NO ERROR 
glace 000240 NOP SRETURN HERE IF ERROR 
021424 104 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
021426 000137 022022 ) JMP 16$ :60 TO 16$ IF ERROR 
1229 021432 4$: 
1231 ;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
1e3e 021432 012737 000063 001412 MOV #WH'GO,RMCS10 sWRITE HEADER AND D. 
1233 021440 912702 001555 MOV #PUTINK,R2 [WRITE REGISTER INDEX. TABLE 
1234 021444 112722 000006 MOVB A, (R2)+ 
1235 021450 1e7ee 000034 MOVB = #RMDC., (R2) + 
1236 021454 112722 000032 MOVB F.(R2)+ 
1237 021460 112728 000002 MOVB Cc. (R2)+ 
1238 021464 112722 000004 MOVB  &#RMBA.(R2)+ 
1239 021470 112722 000000 MOVB = #RMCS1, (R2)+ 
1240 021474 112722 000200 MOVB #200, (R2)+ 
1242 021500 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
021504 000404 5$ *GO TO 5$ IF NO ERROR 
021506 000240 [RETURN HERE IF ERROR 
021510 104000 _ EMT TERROR # DEFINED BY PUT SUBROUTINE 
021512 000137 022022 JMP 16$ :60 TO 16$ IF ERROR 
1243 021516 5$: 
1245 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
1246 021516 004737 035450 JSR PC,GETSTS 
1247 621522 004737 036356 4ER PC; TIMOUT WAIT FOR COMMAND TO COMPLETE 
1249 021526 004737 035534 JSR PC,GET 360 READ eennevencil WITH GET SUBROUTINE 
021532 000404 BR 6s G60 0 6S IF NO ERROR 
021534 000240 NOP SRETURN HERE IF ERROR 
021536 104 EMT SERROR # DEFINED BY GET SUBROUTINE 
021540 000137 022022 JMP 16$ 760 TO 16$ IF ERROR 
1250 021544 6$: 
125 sVERIFY RESULTS OF WRITE COMMAND 
1253 021544 004737 036552 JSR PC,PRIERR 360 CHECK FOR PRIMARY ERRORS 
021550 000405 BR 7$ :G60 TO 7$ IF NO ERR 
021552 000240 NOP SRETURN HERE IF ERR 
021554 104 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
021556 0047 JSR PC,a(SP)+ *G0 BACK FOR MORE ERROR ¢ 
a oer3ee 000137 022022 os JMP 16$ 760 TO 16$ IF ERROR 
1255 021564 004737 051612 JSR PC ,DTASTS 260 O VERIFY RESU RESULTS OF DATA TRANSFER 
021570 000405 a Bg NO ERROR 
021572 000240 NOP OP TURN MERE IF ERROR 





CZRNEAO RMBO FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 13-40 SEQ 0111 
Ti6 FORMAT EACH TRACK ADDRESS 
0 1574 EMT sERROR # DEFINED BY DTASTS SUBROUTINE 
1 76 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
= 9 1600 022022 ne JMP 16§ :G0 TO 16$ IF ERROR 
138 021604 037404 JSR PC,SECERR 760 CHECK FOR SECONDARY ERRORS 
021610 BR 9$ +60 TO $$ IF NO ERROR 
02161 NOP SRETURN HERE IF ERROR 
021614 EMT ZERROR £ DEF INED BY SECERR SUBROUTINE 
1616 JSR PC,a(SP)+ CK FOR MORE oer OR CHECKS 
921620 022022 JMP 16$ 260 TO 16$ IF ERR 
1258 021624 9$: 
1260 ;READ HEADER AND ATA FOR SECTOR JUST WRITTEN 
1261 021624 000073 001412 MOV H!GO,RMCS10 ;READ HEADER & DATA COMMAND 
126 021632 102722 001416 MOV po TWO, RMBAO [CHANGE BUS ADDRESS 
1264 021640 036004 JSR PC,PUT 760 WRITE REGISTER(S) WITH PUT SUBROUTINE 
021644 BR 10$ 360 T 0 10$ IF NO ERROR 
021646 NOP OO TURN HERE IF ERROR 
021650 EMT TERROR # DEFINED BY PUT SUBROUTINE 
1652 022022 JMP 16$ £60 TO 16$ IF ERROR 
1265 65 021656 10$: 
1267 — FOR READ TO omit AND GET STATUS 
1268 021656 036356 JSR PC, TIMOUT SWAIT FOR READ TO COMPLETE 
1270 021662 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
021666 BR 118 :G60 TO 11$ IF NO ERROR 
021670 NOP [RETURN HERE IF ERROR 
021672 EMT TERROR # DEFINED BY GET SUBROUTINE 
021674 022022 JMP 16$ 760 TO 16$ IF ERROR 
1271 021700 11$: 
1273 ;VERIFY THE RESULTS OF ~ OPERATION 
1274 021700 036552 JSR PC,PRIERR 268 ges K FOR PRIMARY ERRORS 
021704 BR 12$ 12$ IF No ERROR 
021706 NOP sO TURN A HERE IF ERR 
021710 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
021712 JSR PC,a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
021714 022022 JMP 16$ *GO TO 16$ IF ERROR 
1275 021720 12$: 
1276 021720 004737 051612 JSR PC DTASTS £60 VERIFY RESULTS OF DATA TRANSFER 
021724 000405 BR 138 0 13$ IF NO ERROR 
021726 000240 NOP + OP TURN HERE IF ERROR 
17 104090 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
021732 0047 JSR PC, a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
aa 031734 000137 022022 ae JMP 168 'GO TO 16$ IF ERROR 
1278 021740 004737 057404 JSR PC, SECERR 60 CHECK FOR SECONDARY ERRORS 
021744 000405 BR 14$ *GO TO 14$ IF NO ERROR 
021746 000240 NOP SRETURN HERE IF ERROR 
021750 104 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
021752 0047 JSR PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
9 1754 000137. 022022 JMP 16$ 760 TO 16$ IF ERROR 
1 79 1760 14$: 
1281 ;VERIFY DATA 





——- 
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Ti6 FORMAT EACH TRACK ADDRESS 
1282 0 1760 737 035106 JSR PC, CMPBUF 360 COMPARE WRITE, READ DATA BUFFERS 
0 1764 1 1716 .WORD BUF ONE *STARTING ADDRESS OF WRITE BUFFER 
1766 1 ree * WORD BUF TWO SSTARTING ADDRESS OF READ BUFFER 
921770 h086 BR 15$ :60 TO 15S, IF NO ERROR 
021772 000240 NOP PRETURN HERE IF ERROR 
021774 104 EMT TERROR # DEFINED BY CMPBUF SUBROUTINE 
boas 021776 000137 022022 JMP 16$ +60 TO 16$ IF ERROR 
1284 : INCREMENT ADDRESS AND FORMAT NEXT TRACK 
1285 022002 : 
1286 022002 105237 901421 INCB  —- RMDAO+1 ZADVANCE | TRACK COUNT 
1287 022006 125 37 001421 001335 CMPB ss RMDAO+1, LSTRK+1 3LAST 
1288 022014 1 1002 BHI 16$ YES!! 
1289 022016 000137 021330 JMP *60 DO NEXT SECTOR 
1290 022022 16$: 
1292 FERRARA RRERAERERRRE RERRERERAERERERREEARRRERERERRERERARERERRRRREEE 
tSTEST 17 READ HEADER & DATA IN LAST SECTOR 
ERA EREEAEEEERERERERREARERRERERERERAEEEERERERERARERE REE 
022022 T8117: 
022022 000004 SCOP sSCOPE CALL 
022024 000240 NOP ART OF TEST 
22026 012706 001100 MOV #STACK,SP INITIALIZE STACK POINTER 
022032 013700 001276 MOV S$BASE ,RO = UNIBUS ADDRESS 
022036 013701 001466 MOV TSTQUE,R1 7(R1) = DEVICE BEING TESTED 
ons 022042 012737 000017 001226 MOV #17,$TESIN +:SET TEST NUMBER IN APT MAIL BOX 
' 129% ;SETUP PARAMETERS FOR READING LAST SECTOR 
1295 022050 013737 001334 001420 MOV LSTRK,RMDAO 3SET LAST TRACK AND 
1296 022056 112737 000036 001420 MOVB #30.,RMDAO SECTOR 
1297 922064 012737 010000 001444 se MOV aEMTiCn RMOFO 216 BIT FORMAT 
1299 022072 012737 001060 001446 MOV #560 -RADCO sLAST Of YLANDER 
1300 022100 012737 177376 001414 MOV #25 58. ,R (2°S COMP) 
1301 022106 012737 102722 001416 MOV rTub. RAGAO ee ATA BUFFER ADDRESS 
1302 022114 012737 73 001412 MOV aRNGO. RMCS10 READ HEADER AND DATA 
1304 :PREPARE DEVICE FOR DATA TRANSFER 
1305 022122 004737 031456 JSR PC, TSTPRP sPREPARE DEVICE on ie) 
022126 154130 “WORD 154130 :TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE i VERIFY. DEVICE AVAILABLE 
*CLEAR C R & SELECT DEVICE 
VERIFY SOWTROCLER CLEAR COPERATI 
: c EDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
; IBRATE IF ‘SKI OR "PIP" IS SET 
[VERIFY RECALIBRATI 
022130 000404 2$ :60 TO 2$ IF NO ERROR 
022132 000240 NOP :RET URN HERE IF ERROR 
022134 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
nae 032136 000137 022374 a JMP 9$ 60 * 9$ IF ERROR 
1307 055405 012702 001555 MOV #PUTINX R2 :WRITE REGISTER INDEX TABLE 
1308 022146 112722 000006 MOVB RMDA, (R2)+ 
1309 022152 112722 000034 MOVB aRMDC. (R2)+ 
1310 022156 1127 : 000032 MOVB  4#RMOF.(R2)+ 
1311 022162 112722 000004 MOVB  &#RMBA.(R2)+ 


SEQ se one | 


z 


St & 
rr 


S3 nmrrn 2B 
2 


004737 035450 


gs3 
23 
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& DATA IN LAST SECTOR 
722 00000 MOVB  #RMWC 
7 ¥OVB Sanesi oP 
722 0002 - MOVB #200, (R2)+ : TERMINATOR 
sREAD HEADER AND DATA OF LAST SECTOR 

737 036004 JSR PC,PUT 360 WRITE RE 'STER(S) WITH PUT SUBROUTINE 

BR 4° 360 TO 4$ IF NO ERROR 
240 NOP * RETURN MERE IF ERROR 

EMT TERROR # DEFINED BY PUT SUBROUTINE 

022374 Pm JMP 9$ +60 TO 9$ IF ERROR 


sSETUP INPUT REGISTER 5 aaa FOR READING STATUS 
JSR PC,GETSTS 


“am 


hon 
FMUAGAWIS 


=) 

nN 
beatae ee eter 

WSO 


MOMOPORNY' 
oe 


MMP 


OOoooo 
So Ses i=) =) 


QRAEE 
SVRAK 


Mon 
foro 


23 


S8e888 $8 


° 
4 


Sees 


604737 036356 JR PC, TIMOUT zWAIT FOR READ TO COMPLETE 
004737 035534 JSR PC GET GO READ nest sTen ts? WITH GET SUBROUTINE 
000404 BR 5$ 760 TO 5$ IF NO ERR 


ZRETURN HERE IF ER ROR 
TERROR # ee GET SUBROUTINE 


022374 9$ :G0 TO 9$ IF 
:CHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST. IF SO 
jD0 NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 
000040 #SSE,RMER21 rI1S "SSE* BIT SET ? 
8S :Bk IF YES 
RESULTS OF READ OPERATION 
036552 JSR PC,PRIERR 3G0 CHECK FOR PRIMARY ERRORS 
:GO TO 6$ IF NO ERROR 
SRETURN HERE IF ERROR 
000 ERROR # DEFINED BY PRIERR SUBROUTINE 
36 PC,a(SP)+ CK FOR MORE ERROR CHECKS 
37 022374 9$ = TO 9$ IF ERROR 
37 051612 PC,DTASTS :60 VERIFY RESULTS OF DATA TRANSFER 
05 7$ 0 7$ IF NO ERROR 
340 OP TURN HERE IF ERROR 
000 TERROR # DEF INED BY DTASTS SUBROUTINE 
736 PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
137 022374 9$ 760 10 9$ IF ERROR 
037404 PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
at 760 TO 8$ IF NO ERROR 
24 RETURN HERE IF ERROR 
000 TERROR # DEFINED BY SECERR SUBROUTINE 
136 PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
137 022374 9$ 760 TO 9$ IF ERROR 
737 001000 #SSE1,RMOFO TEST} 16 BIT MODE W/ SSEI SET ? 
737 001334 LSTRK,RMDAO SSET LAST TRACK AND 
30 0037 #31. .RMDAO *LAST SECTOR 
737 001000 #SSE1,RMOFO 3SET SSEI BIT IN OFFSET AND 
137 022072 1$ TEST AGAIN. 


kK 9 
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1 
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§ 022374 9$: 
FRARAAAAAERARERRRARAREREEAERERAARARERARERERERRRERERAREREREOREREEE 
tSTEST 20 READ HEADER & DATA W/ AOE ERROR 
2 pageaggeemeeanmers orton s mbRR Cie Eran sy st 
022374 
022374 000004 SCOPE SCOP 
022376 340 NOP SSTART OF TEST 
022400 012706 001100 MOV #STACK, SP ZINITIALIZE STACK POINTER 
022404 013700 001276 MOV $BASE ‘RO = UNIBUS ADDRESS 
022410 013701 001466 MOV TSTQUE ,R1 3(R1) = DEVICE BEING TESTED 
ro 022414 012737 000020 001226 MOV #20,$TESTN +;SET TEST NUMBER IN APT MAIL BOX 
1350 ;SETUP PARAMETERS FOR READING 2 SECTORS STARTING WITH LAST SECTOR 
1351 022422 013737 001334 001420 MOV L 3SET LAST TRACK AND 
135¢ 022430 112737 000036 001420 MOVB «#30... R TLAST § CF 
1353 02 456 012737 010000 001444 a MOV 430. «RAD RROFO 716 BIT FORMAT 
1355 022444 012737 001060 001446 MOV #560. ,RMDCO sLAST CYLINDER 
1356 022452 012737 176774 001414 MOV #~258.%2,RMWCO READ 2 SECTORS 
1357 022460 012737 102722 001416 MOV #BUF TWO, RMBAO ‘DATA BUFFER ADDRESS 
1358 022466 012737 000073 001412 MOV #RH'GO,RMCS10 READ HEADER AND DATA 
1360 sPREPARE DEVICE FOR DATA TRANSFER 
1361 022474 004737 031456 JSR PC, TSTPRP sPREPARE DEVICE on TEST 
022500 154130 “WORD 154130 [TASK DESCRIPTOR AS FOLLOWS: 
S SELECT DEVICE i VERIFY DEVICE AVAILABLE 
:C CONTROLLER & SELECT DEVICE 
VERIFY SOA TROT LER CLEAR OPERA TION 
PACK Bed Rare item IF VOLUME NOT VALID 
:VERIFY ACK ACKNOWLEDGE 
*RECALIBRATE IF ‘SKI’ OR 'PIP*’ IS SET 
VERIFY wie ION 
022502 000404 BR 2$ TO 2$ IF NO ER 
022504 000240 NOP {RETURN HERE IF ERROR 
022506 104000 EMT s ERROR # 6 4n BY TSTPRP SUBROUTINE 
nace 022510 000137 022746 as JMP 8$ *G0 TO 8$ IF ERROR 
1363 022514 012702 001555 MOV #PUT INK R2 :WRITE REGISTER INDEX TABLE 
1364 022520 112722 000006 MOVB (R2)+ 
1365 022524 112722 000034 MOVB SANG. (R2)+ 
1366 022530 1127¢¢ 000032 MOVB = #RMOF . (RO) + 
1367 022534 1187 2 002 MOVB = #RMWC. (R2)+ 
1368 022540 11 ree 000004 MOVB  #RMBA.(R2)+ 
1369 022544 112722 000000 MOVB = #ARMCS1, (R2)+ 
1370 022550 112722 000200 MOVB #200, (R2)+ 
1372 022554 004737 036004 JSR PC,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
022560 00U404 BR 3$ +60 TO 3$ IF NO ERROR 
022562 600240 SRETURN HERE IF ERROR 
022564 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
022566 000137 022746 JMP 8$ :60 TO 8$ IF ERROR 
1373 022572 3$: 
1375 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
1376 022572 004737 035450 JSR PC,GETSTS 
1377 022576 004737 036356 JSR PC; TIMOUT :WAIT FOR READ TO COMPLETE 
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137 
1335 922602 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
606 000404 BR 4$ :GO TO 4$ IF NO ER ROR 
022610 000240 NO: RE ETURN | HERE IF ERR 
022612 1040 EMT TERROR # DEFINED BY Ofer SUBROUTINE 
ines 022614 000137 022746 JMP 8$ 760 TO 8$ IF ERROR 
1381 sCHECK TO SEE IF THIS SECTOR WAS SKIP SECTORED FIRST, IF SO 
1382 “DO NOT EXECUTE THIS TEST IN 16 BIT FORMAT MODE 
1383 022620 $: 
1384 022620 032737 000040 001400 BIT #SSE,RMER2Z1 1S r$se° BIT SET ? 
1385 022626 001030 BNE 7$ ‘BR IF YES 
1387 ;VERIFY THE RESULTS OF READ OPERATION 
1388 022630 004737 036552 JSR PC,PRIERR 7 creek + a tanta ERRORS 
022634 000405 BR 5$° 0 5$ IF NO ERROR 
022636 000240 NOP RETURN MERE IF ERROR 
022640 104000 EMT * ERROR # DEFINED BY PRIERR SUBROUTINE 
022642 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
1389 oesess 000137 022746 i JMP 84 :GO TO 8$ IF ERROR 
1390 022650 004737 051612 JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
022654 000405 BR 6$ "GO TO 6$ IF NO ERROR 
022656 000240 NOP GRETURN HERE IF ERROR 
022660 104000 EMT ‘ERROR # py haat BY DTASTS SUBROUTINE 
022662 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
022664 000137 022746 JMP 8$ :GO TO 8$ IF ERROR 
1391 022670 6$: 
1392 022670 004737 037404 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
022674 000405 BR 7$ :GO TO 7$ IF NO ERROR 
022676 000240 NOP SRETURN HERE IF ERROR 
022700 104000 EMT * ERROR & sida BY SECERR SUBROUTINE 
022702 004736 JSR PC,a(SP)+ *GO BACK FOR MORE ERROR CHECKS 
ae 932704 000137 022746 bs JMP 8S :G0 TO §s IF ER ROR 
1394 022710 032737 001000 001444 BIT #SSE1,RMOFO :TEST 16 BIT MODE W/ SSEI SET ? 
1395 022716 001013 BNE : u 
1396 022720 013737 001334 001420 MOV LSTRK RMDAO *SET LAST TRACK AND 
1397 022726 112737 000037 001420 MOVB 531 DAO ‘LAST SEC 
1398 022734 052737 001000 001444 BIS assil RAOFO ‘SET SSEI BIT IN OFFSET AND 
1399 022742 000137 022444 JMP 1$ STEST AGAIN. 
1400 022746 8$: 
1402 FRRARERAARERERRAREREREREERERERAAREERARAERAERERERERERERAERERRERRREED 
tSTEST 21 READ INVALID SECTOR ADDRESS 
REAR EEERAEREAREEAERERREREEEKEEREREEREEEEEREEEREREE 
022746 i$121: 
022746 000004 SCOPE ZSCOPE CALL 
022750 000240 NOP ‘START OF TEST 
022752 Oe 06 001100 MOV #STACK,SP 3 INITIALIZE STACK POINTER 
022756 013700 001276 MOV S$BASE ,RO ‘RO = UNIBUS ADDRESS 
022762 013701 001466 MOV TSTQUE ,R1 7(R1) = DEVICE BEING TESTED 
te 022766 012737 000021 001226 MOV #21,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1404 022774 012737 001057 001446 MOV #559. .RMDCO sCYLINDER = 559. 
1405 023002 012737 001036 001420 MOV #TA2i 30. .RADAO STRACK = 2, INVALID SECTOR = 30. 
1406 023010 012737 000000 001444 MOV #0, RMOF °18 BIT FORMAT 
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0137 7 10 101718 8 9° 


031456 


023310 


036004 


023310 


035450 
036356 


035534 


023310 


036552 


023310 


SEQ 0116 


1414 MOV #-258. ,RMWCO 
001416 MOV #BUF ONE , RMBAO 
141 MOV #RH!GO,RMCS10 


32+ 256 WORDS (2°S COMP) 
sDATA BUFFER ADDRESS 
;READ HEADER AND DATA 


sPREPARE DEVICE FOR DATA TRANSFER 
TSTPRP sPREPARE DEVICE FOR TEST 

“WORD 154130 [TASK DESCRIPTOR AS FOLLOWS: 

*SELECT DEVICE & VERIFY DEVICE AVAILABLE 

“CLEAR CONTROLLER & SELECT DEVICE 

[VERIFY CONTROLLER CLEAR OPERATI 

[PACK ACKNOWLEDGE IF VOLUME NOT VALID 


BRATE IF Nd Of OR ‘PIP’’ IS SET 
BR 2s :GC_TO 2$ IF NO ERROR 
NOP ;RETURN HERE IF ERROR 
EMT TERROR # 6 BY TSTPRP SUBROUTINE 
2$ JMP 9$ G0 TO 9$ IF ERROR 


SETUP AND ars READ HEADER AND DATA COMMAND 
1 ae ;LOAD REGISTER INDEX TABLE 


MOVB #200, (R2)+ 
JSR PC PUT 
BR 3$ 


3SET TERMINATOR BYTE 
7G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
:G0 TO 3$ IF NO ERROR 


NOP RETURN HERE IF ERROR 
EMT TERROR # oe ee Ay PUT SUBROUTINE 
JMP 9$ 760 TO 9$ IF ERR 


3$: 

;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
JSR PC,GETSTS 
JSR PC. TIMOUT zsWAIT FOR COMMAND TO COMPLETE 
JSR PC,GET 37GO READ REGISTER(S) WITH GET SUBROUTINE 
BR 4$ :GO TO 4$ IF NO ERROR 
NOP RETURN HERE 


IF ERROR 
EMT TERROR # 6 A BY Ofer SUBROUT INE 
JMP 9$ :GO TO 9$ IF ERROR 
4$: 
:VERIFY RESULTS OF READ COMMAND 
JSR PC,PRIERR :G0 cne ce FOR PRIMARY ERRORS 
BR 5$ :GO TO 5$ IF NO ERROR 
NOP ERETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ate ¢ CHECKS 


S$: JMP 9$ 360 TO 9$ IF ERRO 


¢ 
T 


ere 


04 


POR) td a od 
FPSO LNG 


as 
& 
oO 

oOo 
ssssssss 
rmrororororny 


o 
WINN 


BLER 
ESSERE 
Wmewr 


BES 

con 
o 
ise) 
Ww 
ht) 
w 
oO 


4 
4 
49 023260 


T3434 


BREE RRRS 


win 
Oco 


sg 
oo 
MoM 
vir 
a 
Nm 


— td od 2 ot ot ot od I eo 
INS SS ote 
Sora Rowe 


a 
 *) 
o 
Ror 


Sow 


—— = 
Swe Off 
MW MONS 
WAASO FEN MAGS 


Slas 


~— 


zPREPARE DEVICE 
JSR 
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READ INVALID SECTOR ADDRESS 


PC,DTASTS 
6$ 


PC,a(SP)+ 
9$ 


PC,SECERR 
7$ 


PC ,a(SP)+ 
9$ 


z INCREMENT ADDRESS AND FORMAT NEAT SECTOR 
INC RMDAO 


RMDAO , #64. 
8$ 


palletes 


#TA2!31. ,.RMDAO 
7 arr 





G0 VERIFY RESULTS OF DATA TRANSFER 
760 TO 6$ IF NO ERROR 


; ERROR 

ZERROR # DEFINED BY DTASTS SUBROUTINE 
760 BACK FOR MORE ERROR CHECKS 

760 TO 9$ IF ERROR 


360 CHE Ce 4 SECONDARY ERRORS 
360 T O 7$_ IF NO ERROR 

;RE TURN HERE 1 ERROR 

SERROR # DEFINED BY SECERR SUBROUTINE 
360 BACK_FOR MORE ERROR CHECKS 

760 TO 9$ IF ERROR 


SADVANCE SECTOR COUNT 
‘NO = TEST NEXT SECTOR 
sTEST 1 16 BIT MODE YET ? 


‘TRACK = 2, INVALID SECiOR = 31. 
SET 16 BIT MODE IN OFFS:T AND 
STEST AGAIN. 


a6 "Ee A aA!!! 


READ INVALID TRACK ADDRESS 


#STACK SP 
TSTQUE ,R1 


#22, $TESTN 


#559. ,RMDCO 
LSTRK, ae 


RMDAO 
#FMT16, ore 


#-258. 


#BUF ONE RMBA RO 
#RH!GO,RMCS10 


FOR DATA TRANSFER 
PC, TSTPRP 


154130 


rAeeteenennanananananeeeeteareeeasenenneeeenedaneannasennennnsss 


2 SCOPE cut 
; START TEST 
SINITIALIZE STACK POINTER 
;RO_ = UNIBUS ADDRESS 
2(R1) = DEVICE SEING TESTED 
73SET TEST NUMBER IN APT MAIL BOX 


est wee 484 
[LOAD LAST TRA CTOR = 0 
aoa! TO Fast. INVALID TRACK 


rt 
32+ 256 WORDS (2°S COMP) 
DATA BUFFER ADDRESS 
;READ HEADER AND DATA 


ARE DEVICE FOR TEST 

TASK DESCRIPTOR AS FOLLOWS: 

ZSELECT DEVICE & VERIFY DEVICE AVAILABLE 
SCLEAR CONTROLLER & SELECT DEVICE 
:VERIFY CONTROLLER CLEAR OPERATION 

3PACK ACKNOWLEDGE IF VOLUME NOT VALID 
VERIFY PACK ACKNOWLEDGE 
ZRECALIBRATE IF “SKI CR “PIP IS SET 
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SEQ 0118 


: VERIFY pra gle 


023414 000404 BR 2s :G0 TO 2$ IF NO ERROR 
023416 000240 NOP SRETURN HERE IF ERROR 
023420 10400 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
023422 000137 023632 JMP 8$ 760 TO 8$ IF ERROR 
1470 023426 2$: 
147e sSETUP AND EXECUTE READ HEADER AND DATA COMMAND 
1473 023426 012702 001555 MOV #PUTINX,R2 sREAD REGISTER INDEX TABLE 
1474 023432 e720 090006 MOVB , (R2)+ 
1475 023436 112722 000034 MOVB  #RMDC.(R2)+ 
1476 023442 112722 000032 MOVB * (R2)+ 
1477 025446 11272 000002 MOVB  #RMWC,(R2)+ 
1478 023452 112722 000004 MOVB = #RMBA.(R2) + 
1479 023456 112722 000000 MOVB  #RMCS1, (R2)+ 
1480 023462 112722 000200 MOVB #200, (R2)+ :SET TERMINATOR BYTE 
1482 023466 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
023472 0004 BR 3$ :G0 TO 3$ IF NO ER ROR 
023474 0002 SRETURN HERE IF ERR 
023476 104000 EMT Z ERROR 4 DEFINED BY oPuT SUBROUTINE 
027500 000137 023632 JMP BE 0 TO 8$ IF ERROR 
1483 023504 3$: 
1485 :SETUP INPUT REGISTER BUFFER FOR READING STATUS 
1486 023504 004737 035450 JSR PC,GETSTS 
1487 023510 004737 036356 JSR PC. TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
1489 023514 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
023520 000404 BR 4$ :GO TO 4$ IF NO ERR ROR 
023522 000240 NOP SRETURN HERE IF ERR 
023524 104000 EMT TERROR # DEFINED 8 BY Ofer SUBROUT INE 
023526 000137 023632 JMP Bt 760 TO 8$ IF E 
1490 023532 4$: 
1492 :VERIFY RESULTS OF READ COMMAND 
1493 023532 036552 JSR PC.PRIERR :G0 CHECK FOR PRIMARY ERRORS 
023536 BR 5$ :G0 TO 5$ IF NO ERROR 
NOF SRETURN HERE IF ERROR 
EMT SERROR # DEF INED BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
023632 ie JMP 8$ :G0 TO 8$ IF ERROR 
051612 JSR PC,DTASTS :GO VERIFY RESULTS OF DATA TRANSFER 
BR 58 :G0 TO 6$ ERROR 
RETURN HERE 
EMT ROR # DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ 260 BACK FOR MORE ERROR CHECKS 
023632 ae JMP 8$ [G0 TO 8$ IF ERROR 
037404 JSR PC,SECERR :60 CHECK FOR SECONDARY ERRORS 
BR 7$ :GO TO 7$ IF NO ERROR 
NOP «BOT URN HERE IF ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUTINE 
JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECK 
023632 JMP 8$ :GO TO 8$ IF ERROR 


7$: 


= 
SEQ 0119 | 
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1499 
1500 s INCREMENT ADDRESS AND FORMAT NEXT TRACK 
1501 023612 1 $73, 001421 INCB = RMDAO#1 ZADVANCE TRACK COUNT 
1302 Oe 16 1 001421 000200 CMPB  =—s- RMDAO+1,4128. ‘DONE ALL TRACKS?? 
1503 023624 1 1003 BHI BS sYES!! 
1504 023626 000137 023406 JMP 1$ ‘GO DO NEXT TRACK 
1305 02363 8$: 
1507 FRRRERRARRRERREREERARREEREREARARRERERAERARRERERERERRERRRRERRREER 
*STEST 23 READ INVALID CYLINDER ADDRESS 
RARER EEAEREREREEERAREREEREEEEEEAERAERRERREEERERE 
023632 +8123: 
023632 000004 SCOPE zSCOPE CALL 
023634 000240 NOP :START OF TEST 
023636 012706 001100 MOV #STACK, SP 3 INITIALIZE STACK POINTER 
023642 013700 001276 MOV S$BASE ,RO ‘RO = UNIBUS ADDRESS 
023646 013701 001466 MOV  TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
ee 023652 012737 000023 001226 MOV #23,$TESTN ::SET TEST NUMBER IN APT MAIL BOX 
1509 023660 012737 001061 001446 MOV #561. ,RMDCO sSTART AT FIRST INVALID CYLINDER 
1519 02 012737 000000 001420 MOV #0,RMDAO TRACK = “2 CTOR = 0 
7511 023674 012737 910000 001444 MOV #FAT15,RMOFO :168 
1512 023702 012737 177376 001414 MOV #-258..RMWCO 2 + Og Gor S (2°S COMP) 
1513 023710 012737 101716 001416 MOV WBUFONE,RMBAO DATA BUFF PER atts ESS 
1514 023716 012737 000073 001412 MOV #RH!GO,RMCS10 :READ HEADER AND DATA 
1319 023724 1$: 
1517 :PREPARE DEVICE FOR DATA TRANSFER 
1518 023724 004737 031456 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
023730 154130 “WORD 154130 :TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
*CLEAR CONTROLLER & SELECT DEVICE 
; S VERIFY CONTROLLER CLEAR OPERATION 
‘PACK ACKNOWLEDGE if VOLUME NOT VALID 
SVERIFY PACK ACKNOWL EDG noneai 
sRECALIBRATE IF KI OR ‘PIP’ IS SET 
‘VERIFY RECALIBRATI 
023732 060404 BR 2$ :GO TO 2$ !F NO ERROR 
023734 000240 NOP *RETURN HERE IF ERROR 
023736 104000 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
023740 000137 024150 JMP 8$ *GO TO 8$ IF ERROR 
1519 023744 2s: 
1521 :SETUP AND EXECUTE READ HEADER AND DATA COMMAND 
1522 023744 012792 001555 MOV #PUTINX,R2 sLOAD REGISTER INDEX TABLE 
1523 023750 112722 000006 MOVB = #RMDA, (R2)+ 
1524 023754 112722 000034 MOVB  #RMDC,(R2)+ 
1525 023760 1i¢7¢2 032 MOVB  &#RMOF,(R2)+ 
1526 023764 112722 000002 MOVB  #RMWC,(R2)+ 
1527 023770 112722 000004 MOVB  #RMBA,(R2)+ 
1528 023774 112722 000000 MOVB  #RMCS1, (R2)+ 
1369 024000 112722 000200 MOVB #200, (R2)+ :SET TERMINATOR BYTE 
1531 024004 004737 036004 JSR PC,PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
024010 000404 BR 3$ ‘GO TO 3$ IF NO ERROR 
024012 000240 NOP SRETURN HERE IF ER ROR 
024014 104000 EMT TERROR # DEFINED BY U7 SUBROUTINE 
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T23.——- READ INVALID CYLINDER ADDRESS 
024016 000137 024150 JMP BS :60 TO 8$ IF ERROR 
1532 (2402 3$: . 
15 :SETUP INPUT REGISTER BUFFER FOR READING STATUS 
1535 024022 004737 035450 JSR ——- PC, GETS 
1336 024026 004757 036356 3g PECTIMOUT ;WAIT FOR COMMAND TO COMPLETE 
1538 024032 004737 035534 JSR PC, GET 760 READ REGISTER(S) WITH GET SUBROUTINE 
024036 000404 BR 4$ 760 TO 4$ IF NO ERROR 
024040 000240 NOP RETURN HERE IF ERROR 
024042 104 EMT ZERROR # DEFINED BY GET SUBROUTINE 
024044 000137 024150 JMP BS 360 TO 8$ IF ERROR 
1539 024050 4$: 
1541 VERIFY RESULTS OF READ COMMAND 
1542 024050 004737 036552 JSR PC, PRIERR 760 CHECK FOR PRIMARY ERRORS 
024054 000405 BR 5$ 360 TO 5$_IF NO ERROR 
024056 000240 NOP RETURN’ HERE IP. ERROR 
024060 104000 EMT ERROR # DEFINED BY PRIERR SUBROUTINE 
024062 004736 JSR PC, a( SP)+ G0 BACK FOR MORE ERROR CHECKS 
4064 000137 024150 JMP BS 760 TO 8$ IF ERROR 
1543 024070 5$: 
1544 024070 004737 051612 JSR PC ,DTASTS 3GO VERIFY RESULTS OF DATA TRANSFER 
024074 000405 Ba 6$ 760 TO 6$ IF NO ERROR 
024076 000240 NOP RETURN HERE IF ERROR 
024100 104000 EMT TERROR : py pan BY dba SUBROUTINE 
024102 004736 JSR —- PC, a(SP)+ G0 BACK FOR MORE ERROR CHECKS 
024104 000137 024150 JMP BS 360 TO 8$ IF ERROR 
1545 024110 68: 
1546 024110 004737 037404 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
024114 000405 | BR 7$ 760 TO 7$_IF NO ERROR 
024116 000240 NOP TRETURN HERE IP. ERROR 
024120 104000 EMT ZERROR # spas BY SECERR SUSROUTINE 
024122 004736 JSR —s- PC, @(SP)+ 3G0 BACK FOR MORE ERROR CHECKS 
024124 000137 024150 JMP BS :G0 TO 8$ IF ERROR 
1547 024150 7$: 
1549 ; INCREMENT ADDRESS AND FORMAT NEXT CYLINDER 
1550 024130 005237 001446 INC RMDCO ADVANCE CYLINDER COUNT 
1551 024134 023727 001446 002000 CMP =—- RMDCO, #1024. 3DONE ALL CYLINDERS? 
1552 024142 103002 BHIS 83 zYES!! 
1553 024144 000137 023724 JmP «dS 760 DO NEXT SECTOR 
1354 024150 8$: 
1556 FERRARA RERERERERAEREREEEAA ERE REAR EREREREERRERERERERRRARAEAAARRD 
SRTEST 24 FORMAT AT OFFSET 
RARER REEEEEERERAAEEEERERERAERERERERAEREEERERERERKEREEEE 
024150 18124: 
024150 000004 SCOPE CALL 
024152 000240 NOP ;START OF TEST 
024154 012706 001100 MOV = #STACK, SP SPMITIALIZE STACK POINTER 
024160 013700 001276 MOV = $BASE RO = UNIBUS ADDRESS 
024164 013701 001466 MoV =‘ TSTQUE,R1 :(R1) = DEVICE BEING TESTED 
557 ot” 012737 000024 001226 MOV ©: #24, STESTN 3:SET TEST NUMBER IN APT MAIL BOX 
{358 ’ ;SETUP PARAMETERS FOR GENERATING DATA ‘BUFFER 


024176 012737 001057 001446 MOV #559. RM sCYLINDER = 559. 
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MOV #TA2,RMDAO :TRACK = 2, SECTOR = 0 
MOV aFMT iC, RMOFO £16 
MOV #-258. .RMWCO t2 ¢ 256 WORDS (2°S COMP) 
MOV #BUF ONE ,RMBAD :DATA BUFFER OS ODRESS 
MOV #WH!GO,RMCS10 WRI7E HEADER AND DATA 
:VERIFY THAT SECTOR !S NOT BAD 
JSR PC ,BADSCT :CALL BAD SECTOR 
BR *G0 TO 1$ IF NO ERROR 
TYPE  .SCTMSG STYPE BAD SECTOR MESSAGE 
EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
- JMP 17$ 760 TO 17$ IF ERROR 
MOV #RMDAO, STMPO SUSE SECTOR FOR DATA PATTERN 
MOV #1,$TMP1 
- JSR PC. GENBUF :GO GENERATE DATA BUFFER 
sPREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
“WORD 154130 : TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE t VERIFY DEVICE AVAILABLE 
*CLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPCRATI 
[PACK AC EDGE IF VOLUMe NOT VALID 
;VERIFY PACK ACKNOWLEDGE 
“RECALIBRATE IF ‘Sk OR 'PIP’’ IS SET 
: VERIFY RECALIBRATION 
BR 3$ [60 TO 3$ IF NO 
NOP SRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
i JMP 17$ +60 TO 17$ IF ERROR 


sOFFSET DEVICE FOR WRITE 


MOV #OFFSET!GO,RMCS10 sCHANGE TO OFFSET COMMAND 
MOV #PUTINX,R2 [WRITE PUT INDEX TABLE 
MOVB = #RMDA, (R2)+ 
MCVB ss ARDC, (Re d+ 
MOVB —s #RMOF 
MOVB Srmcei OP 
MOVB «#200, (R2) : TERMINATE TABLE 
JSR PC, PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 4$ :GO TO 4$ IF NO ERROR 
NOP ERETURN HERE TP ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 

JMP 17$ ‘G60 TO 17$ IF ERROR 

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND AT OFFSET 

MOV #'dH'GO,RMCS10 HEADER AND DATA COMMAND 
MOV SPUTINS RD ‘UnITE REGISTER WNOEN. TABLE 
MOVB arc, CR d+ 
MOVB = #RMBA. ( 
MOVB = #RMCS4 ae 
MOVB #200, (R2)+ 
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T24 FORMAT AT OFFSET 


15 1 

1299 0 4430 004737 036004 JSR PC ,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
0264 04 BR 5$ 360 TO 5$ IF NO ERROR 
0 4456 900 40 NOP “RETURN HERE IF ERROR 
9 4440 1 EMT TERROR # DEFINED BY PUT SUBROUTINE 

4442 000137 025062 JMP 17$ [G0 TO 17$ IF ERROR 

1598 024446 S$: 

1600 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 

1601 024446 004737 035450 : JSR PC,GETSTS 

1602 024452 004737 036356 JSR PC. TIMOUT WAIT FOR COMMAND TO COMPLETE 

1604 024456 004737 035534 JSR PC,GET :G0 READ SREGISTER(S WITH GET SUBROUTINE 
024 000404 BR 6$ :G0 TO 6$ IF NO ERROR 
024464 000240 NOP [RETURN HERE IF ERROR 
024466 104 EMT TERROR # DEFINED BY GET SUBROUTINE 
024470 000137 025062 JMP 17$ £60 TO 17$ IF ERROR 

1605 024474 6$: 

1607 :VERIFY RESULTS OF WRITE COMMAND 

1608 024474 004737 036552 JSR PC,PRIERR :60 CHE CK FOR P PRIMARY ERRORS 
024500 000405 BR 7$ 0 7$ IF NO ERROR 
024502 000240 NOP - OO TURN HERE IF ERROR 
24504 104000 EMT ERROR # DEFINED BY PRIERR SUBROUTINE 
024506 004736 JSR PC,a(SP)+ CK FOR MORE ERROR CHECKS 

vm 9%4310 000137 025062 ~ JMP 17$ 260 TO 17$ IF ERROR 

1610 024514 004737 051612 JSR PC,DTASTS 3GO0 VERIFY RESULTS OF DATA TRANSFER 
024520 000405 BR 8$ :G0 TO 8$ IF NO ERROR 
024522 000240 RETURN HERE IF ERROR 
024524 104000 EMT TERROR # DEF INED BY DTASTS SUBROUTINE 
024526 004736 JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 

ae 934530 000137 025062 - JMP 17$ :GO TO 17$ IF ERROR 

1612 024534 004737 037404 JSR PC, SECERR 360 CHECK FOR SECONDARY ERRORS 
024540 000405 BR 9$ :GO TO 9$ IF NO ERROR 
024542 000240 SRETURN HERE IF ERROR 
24544 104000 EMT TERROR # DEFINED BY SECERR SUBROUT INE 
024546 004736 JSR PC,a(SP)+ +60 BACK FOR MORE ERROR CHECKS 
024550 000137 025062 JMP 17$ :GO TO 17$ IF ERROR 

1613 0245 9$: 

1614 ZOFFSET DEVICE FOR READ 

1615 024554 012737 15 001412 MOV #OFFSET!GO,RMCS10 :CHANGE TO OFFSET COMMAND 

1616 024562 012702 001555 MOV #PUTINX RZ SWRITE PUT INDEX TABLE 

1617 024566 1187 06 MOVB  &#RMDA, (R2)+ 

1618 024572 1127 34 mov #RNDC, (Re) 

1619 024576 11¢7¢ 000032 MOVB 

1620 024602 112722 000000 MOVB mast Ree 

1621 024606 112722 000200 MOVB 420 (R2)+ 

1858 024612 004737 036004 JSR PC,PUT 760 WRITE REGISTER(S) WITH PUT SUBROUTINE 
024616 000404 BR 10$ ‘GO TO 10$ IF NO ERR 
024620 000240 PRETURN HERE IF ERR on 
024622 104 EMT # DEFINED BY PUT SUBROUTINE 
024 4 000137 025062 17$ cen TO 17$ IF ERROR 

1624 0246 10$: 
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T24 FORMAT AT OFFSET 
1 $ yREAD HEADER AND paTa AT OFFSET 
1 46 12737 90007 001412 MOV 'GO,RMCS10 zREAD HEADER A DATA COMMAND 
1628 0246 12737 10 é 1416 MOV FEUF TOO, RABAD “CHANGE BUS ADDRESS 
1 4644 0127 15 MOV #PUTINX,R2 :WRITE PUT INDEX TABLE 
1630 024650 1127 P0003 MOVB apc, (Re) 
1631 024654 112722 000004 MOVB #RMBA.(R2)¢+ 
1632 024660 1127 900000 MOVB = #RMCS1, (R2)+ 
1633 024664 1127 200 MOVB #200, (R2)+ 
1635 024670 004737 036004 JSR PC,PUT 260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
024674 000404 BR 11$ 360 TO 11$ IF NO ERROR 
024676 000240 NOP “RETURN HERE IF ERROR 
24700 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
024702 000137 0625062 JMP 17$ [60 TO 17$ IF ERROR 
36 024706 11$: 
38 ;WAIT FOR READ TO COMPLETE AND GET STATUS 
9 024706 004737 036356 JSR PC, TIMOUT 7WAIT FOR READ TO COMPLETE 
1 024712 004737 035534 JSR PC,GET :GO READ REGISTER(S) WITH GET SUBROUTINE 
024716 000404 BR 128 360 TO 12$ IF NO ERROR 
024720 000240 “RETURN HERE IF ERROR 
024722 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
024724 000137 025062 JMP 17$ :G0 TO 17$ IF ERROR 
2 024730 12$: 
4 sVERIFY THE RESULTS OF READ OPERATION 
5 024730 004737 036552 JSR PC PRIERR 760 CHECK FOR PRIMARY ERRORS 
024734 00040 BR 13$ 360 13$ IF NO ERROR 
024736 000240 RE TURN HERE IF ERROR 
024740 104000 EMT TERROR # DEF INED BY PRIERR SUBROUTINE 
024742 0047 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
aie 026744 000137 025062 es JMP 17$ :GO TO 17$ IF ERROR 
647 024750 004737 051012 JSR PC,DTASTS' - Hb vent’ t rae OF DATA TRANSFER 
024754 000405 BR 14$ 0 14$ IF NO ERROR 
024756 000240 NOP 2 OP TURN HERE IF ERROR 
024760 104000 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
024762 004736 JSR PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
024764 000137 025062 JMP 178 760 TO 17$ IF ERROR 
1648 024770 14$: 
1649 024770 004737 037404 JSR Pc SECERR 760 CHECK FOR SECONDARY ERRORS 
024774 000405 BR 15$ 360 T 15$ IF NO ERROR 
024776 000240 RETURN HERE IF ERROR 
025000 104 EMT TERROR # DEF INED BY SECERR SUBROUTINE 
025002 0047 JSR PC,a(SP)+ G0 BACK.FOR MORE ERROR CHECKS 
025004 000137 025062 JMP 178 :GO TO 17$ IF ERROR 
1659 025010 15$: 
52 VERIFY DATA 
025010 004737 035106 JSR PC, CMPBUF :GO COMPARE WRITE, READ DATA BUFFERS 
025014 101716 .WORD BUFONE *STARTING ADDRESS OF WRITE BUFFER 
025016 10272 "WORD BUFTWO *STARTING ADDRESS OF READ BUFFER 
025020 000404 BR 16$ $60 TO 16$ IF NO ERROR 
025022 000240 NOP SRETURN HERE IF ERROR 
025024 104 EMT TERROR # DEFINED BY CMPBUF SUBROUTINE 
025026 000137 025062 JMP 17$ +60 TO 17$ IF ERROR 
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T24 FORMAT AT OFFSET 
1654 0 $0 168: 
1655 0250 2737 000200 001444 BIT #OFD.RMOFO sDONE BOTH OFFSETS?? 
1656 304 1 19 BNE 17$ YES! 
1657 025 900200 001444 BIS #OFD ,.RMOFO SET Forwaro OFFSET 
1658 025050 012737 101716 001416 MOV #BUF ONE ,RMBAO SCHANGE DATA BUFFER 
1659 02505 137 02430 J 
1660 025 17$: 
1662 ae ae cee Gee cs a ee 
TEST 25 IVC FORMAT TEST 
RARER ERAAAERARAREAEAERAAEREAEEEREREEERAEEAERAEEARAAAEARERAAKEE 

025 125: 

03506 000004 SCOPE ZSCOPE CALL 

025064 000240 NOP SSTART OF test 

025066 012706 001100 MOV #STACK, SP SINITIALIZE STACK POINTER 

025072 013700 001276 MOV $BASE [RO = UNIBUS ADDRESS 

025076 013701 001466 MOV TSTQUE ,R zCRID = DEVICE BEING TESTED 
nal 025102 012737 000025 001226 MOV #25, OF ESTN *;SET TEST NUMBER IN APT MAIL BOX 
1664 :SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1665 025110 012737 001057 001446 MOV #559. .RMDCO CYLINDER. = = 559. 
1666 025116 012737 001000 001420 MOV #TA2.RMDAO [TRACK = 2, SECTOR = 0 
1667 025124 012737 010000 001444 MOV #FMT16,RMOFO 1e8 
1668 025132 012737 177376 001414 MOV #-258. .RMWCO 72 + 256 WORDS (2°S COMP) 
1669 025140 012737 101716 001416 MOV #BUF ONE , RMBAO DATA BUFFER ADDRESS 
1670 025146 012737 000062 001412 MOV #WH,RMCS10 [WRITE HEADER AND DATA 
1672 :VERIFY THAT SECTOR IS NOT BAD 

025154 004737 032406 JSR PC ,BADSCT :CALL BAD SECTOR MODULE 

025160 05 760 TO 1$ IF NO ERROR 

025162 104401 063446 TYPE  ,SCTMSG STYPE BAD SECTOR MESSAGE 

025166 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
a 025170 000137 025704 as JMP 16$ 760 TO 16$ I 
1674 025174 012737 001420 001174 MOV #RMDAD STMPO SUSE SECTOR FOR DATA PATTERN 
1675 025202 012737 000001 001176 MOV $TMP1 
1676 025210 004737 034640 JSR +o +S TNBUF :G0 GENERATE DATA BUFFER 
1677 025214 2s: 
1679 sPREPARE DEVICE FOR DATA TRANSFER 
1680 025214 737 031456 JSR PC, TSTPRP sPREPARE DEVICE FOR TEST 

025220 154130 “WORD 154130 STASK DESCRIPTOR A 


FOLLOWS: 
3SELECT DEVICE & VER IFY eevee AVAILABLE 
EAR CONTROLLER © SELECT DEVICE 
SVERIFY CONTROLLER CLEAR OPERATI 
A EDGE IF VO 


| 
3PACK ACKNOWL LUME NOT VALID 
:VERIFY PACK ACKNOWLEDGE 
:RECALIBRATE IF. “SkI' OR “PIP'* IS SET 
VERIFY RECALIBRATI 
025222 pe 3$ 60 10 38. If NO ERROR 
025224 009220 NOP RETURN HERE IF ERROR 
925286 104000 EMT ZERROR # DEFINED BY TSTPRP SUBROUTINE 
025¢ 000137 025704 JMP «168 G0 TO 16$ IF ERROR 


F 
E 
I 
168 025234 3$: 
168 ;RESET VOLUME VALID BY SETTING AND RESETTING DIAGNOSTIC MODE 
1684 025234 012737 000001 (91436 MOV #DMD ,RMMR10 zSET DIAGNOSTIC MODE 





SEQ 0125 





CF 
1685 925243 11 23? 9000 4 001555 MOVB = #RMMR1, PUTINX ;WRITE REGISTER INDEX TABLE 
1686 $250 1127 001556 MOVB #200,PUTINX+1 
1688 025256 004737 036004 JSR PC,PUT :60 Q WRITE RE REGISTER(S) WITH PUT SUBROUTINE 
(35262 0004 BR 4$ NO ER ROR 
425264 000240 NOP Re TURN HERE IF ERR 
025266 104 EMT TERROR # DEFINED BY OPur SUBROUTINE 
0252,0 000137 025704 JMP 16$ 760 TO 16$ IF ERROR 
1689 025274 4$: 
1691 . SETUP AND yEXECUTE WRITE HEADER AND DATA COMMAND 
169¢ 025274 012737 000063 001412 #WH'GO,RMCS10 ;WRITE HEADER AND DATA 
1693 025 H 012737 0 001436 MOV #0,RMMR10 SRESET DIAGNOSTIC MODE 
1694 02531 012702 00155 MOV #PUTINX,R2 SWRITE REGISTER INDEX TABLE 
1695 025314 112722 000024 MOVE  &#RMMR1, (R2)+ 
1696 025320 112722 000006 MOVB = #RMDA, (R2)+ 
169 025324 112722 000034 MOVB  &#RMDC.(R2)+ 
1698 025330 112722 000032 MOVB  4#RMOF.(R2)+ 
1699 025334 1127 : 000002 MOVB #RMWC,(R2)+ 
1700 025340 1¢7¢ MOVB (R2)+ 
1701 025344 112722 020000 MOVB = #RMCS1, (R2)+ 
1702 025350 112722 000200 MOVB #200, (R2)+ 
1704 025354 004737 036004 JSR PC PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
025360 000404 5§ :G0 TO 5$ IF NO ERROR 
025362 000240 NOP [RETURN HERE IF ERROR 
025364 104000 EMT SERROR # DEFINED BY PUT SUBROUTINE 
025366 000137 025704 JMP 16$ £60 TO 16$ IF ERROR 
1705 025372 5$: 
1707 ;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
1708 025372 004737 035450 JSR PC,GETSTS 
1709 025376 004737 036356 JSR PC. TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
1711 025402 004737 035534 JSR PC,GET ;GO READ REGISTER(S) WITH GET SUBROUTINE 
25406 000404 , BR 6$ TO 6$ IF NO ERROR 
025410 000240 NOP {RETURN HERE IF ERROR 
025412 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
025414 000137 025704 JMP 16$ :G60 TO 16$ IF ERROR 
1712 025420 6$: 
1714 sVERIFY RESULTS OF WRITE COMMAND 
1715 025420 004737 036552 JSR PC,PRIERR :60 CHECK FOR PRIMARY ERRORS 
025406 000405 BR 7$ 0 7$ IF NO ERROR 
025426 000240 NOP err URN HERE IF ERROR 
025430 104000 EMT TERROR # DEF INED BY PRIERR SUBROUTINE 
025432 004736 JSR PC, a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
oe 183440 000137 025704 - JMP 168 :GO TO 16$ IF ERROR 
1717 025440 032737 010000 001400 BIT #IVC,RMER2I :1$ IVC STATUS SET?? 
1718 025446 001012 BNE “VES! ! 
1719 025450 013737 001400 001142 MOV RMER21,$BDDAT SRECEIVED STATUS FOR TYPEOUT 
1720 025456 013737 001400 001140 MOV RMER2I . $GDDAT TEXPECTED STATUS 
1721 025464 052737 010000 001140 BIS #IVC, $GDDAT 
172 025472 104342 EMT 342 
1723 025474 8$: 
1724 025474 004737 037404 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
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5 IVC FORMAT TEST 
025500 BR 9$ :60 10 9 IF NO ERR 
02550 NOP SRETURN HERE IF ER ROR 
025504 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
0 3306 JSR PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
02551 025704 JMP 16§ :G0 TO 16$ IF ERROR 
1725 025514 9$: 
1727 SCLEAR IVC ERROR 
1728 025514 031456 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 
025520 .WORD 046100 [TASK DESCRIPTOR AS FOLLOWS: 
[CLEAR CONTROLLER & cere et DEVICE 
:VERIFY i GONTROLLER CLEAR OPERA 
025522 10$ *60 ERROR 
025524 NOP Sera HERE IF ERROR 
025526 EMT TERROR # DEFINED BY TSTPRP SUBROUTINE 
0255 025704 JMP 16$ :60 TO 16$ IF ERROR 
1729 025534 10S: 
731 ;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 
1732 025534 000073 MOV #RH'GO,RMCS10 ;READ HEADER & DATA COMMAND 
1733 025542 102722 MOV #BUF TWO, RMBAO [CHANGE BUS ADDRESS 
1735 025550 036004 JSR PC,PUT 3G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
025554 000404 BR 11$ :GO TO 11$ IF NO ERROR 
025556 000240 NOP PRETURN HERE IF ERROR 
025560 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
025562 000137 025704 JMP 16$ *GO TO 16$ IF ERROR 
1736 025566 11$: 
1738 sSETUP INPUT REGISTER BUFFER FOR READING STATUS 
1739 025566 004737 035450 JSR PC,GETSTS 
1740 025572 004737 036356 48R PC. TIMOUT :WAIT FOR READ TO COMPLETE 
1742 025576 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
025602 000404 BR 12$ 36 12$ IF NO ERROR 
025604 000240 NOP SE TURN HER i IF ERROR 
025606 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
025610 000137 025704 JMP 16$ [60 TO 16$ IF ERROR 
1743 025614 12$: 
1745 sVERIFY THE RESULTS OF READ OPERATION 
1746 025614 004737 036552 JSR PC ,PRIERR 360 CHECK FOR PRIMARY ERRORS 
025620 0004 BR 13$ 360 TO 13$ IF NO ERROR 
0256 2 000 NOP RETURN | HERE IF ERROR 
2 104000 EMT SERROR # DEFINED BY PRIERR SUBROUTINE 
025626 004736 JSR PC,a(SP)+ 360 BACK FOR MORE ERROR CHECKS 
925630 000137 025704 ia JMP 16$ :GO TO 16$ IF ERROR 
48 025634 032737 010000 001400 BIT #IVC,RMER2I zIS IVC STATUS SET?? 
25642 1012 BNE 14$ YES! ! 
25644 01373 001400 001142 MOV RMER21, $BDDAT RECEIVED STATUS FOR TYPEOUT 
5652 013737 001400 001140 MOV RMER21 , $GDDAT “EXPECTED STATUS 
660 952737 010000 001140 BIS #IVC, $GDDAT 
5666 104342 we EMT 342 
25670 004737 037404 JSR PC SECERR :G0 CHECK FOR SECONDARY ERRORS 
025674 000403 BR 15$ :G0 TO 15$ IF NO ERROR 


K 10 


001 #1, 
034640 33 JSR PC, GENBUF 3GO GENERATE DATA BUFFER 


sPREPARE DEVICE FOR DATA TRANSFER 

37 031456 JSR PC, TSTPRP :PREPARE DEVICE FOR TEST 

30 “WORD 154130 [TASK DESCRIPTOR AS FOLLOWS: 

3SELECT DEVICE iS, VERIF Y DEVICE AVAILABLE 
“CLEAR CONTROLLER & SELECT DEVICE 

[VERIFY CONTROLLER CLEAR OPERATION 
SPACK ACK KNOWLEDG GE IF VOLUME NOT VALID 
‘VERIFY PACK ACKNOWLEDG eee 
SRECALIBRATE IF ‘SKI’ OR "PIP" IS SET 
*VERIFY RECALIBRATION 


1778 
1779 026036 
02604 
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T25 1VC FORMAT 
ae NOP ;RETURN HERE IF ERROR 
370 EMT SERROR # DEFINED BY SECERR SUBROUTINE 
09 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
1736 bse 15$: 
175 | 
1738 025704 16$: 
1760 FRRAAAAAAAAAAAAAERAAATERARAAA RAR AAAERREREEREREREEERRRRERRERERREE 
TEST 26 FORMAT ERROR TEST 
© RRA EEEEEEEERAREARARERAEAEREREREEREEREEERERREKEE 
025704 126: 
025704 000004 SCOPE ZSCOPE CALL 
025706 900240 NOP SSTART OF TEST 
02571 O12 06 001100 MOV #STACK, SP 3 INITIALIZE STACK POINTER 
025714 013700 001276 MOV $BASE RO, +RO = UNIBUS ADDRESS 
025720 013701 001466 MOV TSTQUE ,R ;(R1) = DEVICE BEING TESTED 
aes 025724 012737 000026 001226 MOV #26, ST ESTN +;SET TEST NUMBER IN APT MAIL BOX 
176¢ ;SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1763 025732 012737 001057 001446 MOV #559. ,RMDCO i CYLINDER = 559. 
1764 025740 012737 001000 001420 MOV #TA2 .RMDAO = ems ECTOR = 0 
1765 025746 012737 010000 001444 MOV #EMTI6, RMOFO ‘eo 
1766 025794 012737 177376 001414 o MOV #-258. .RMWCO 72 ¢ ire WORDS (2°S COMP) 
1768 025762 012737 101716 001416 MOV #BUF ONE ,RMBAO sDATA BUFFER ADDRESS 
1769 025770 012737 000062 001412 MOV #WH,RMCS10 ‘WRITE HEADER AND DATA 
1771 :VERIFY THAT SECTOR IS NOT BAD 
025776 004737 032406 JSR PC,BADSCT CALL BAD BAD SECTOR MODULE 
26002 000405 BR $ 0 TO 2$ IF NO ERR 
026004 104401 063446 TYPE  ,SCTMSG : OO OE BAD TF CTOR MESSAGE 
026010 104000 EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
wm 026012 000137 026606 - JMP 22$ [G0 TO 22$ IF ERROR 
773 026016 012737 065116 001174 MOV #ZEROS ,STMPO ZUSE ALL ZEROS DATA PATTERN 
1774 026024 012737 000 001176 MOV MP 
026044 000404 BR 4$ :60 TO 4$ IF NO ERROR 
026046 000240 NOP SRETURN HERE IF 
026050 104000 EMT *ERROR # DEFINED Bt TSTPRP SUBROUTINE 
026052 000137 026606 JMP 22$ 60 TO $38 IF ERROR 
1780 80 026056 4$: 
178 SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND 
1783 026056 012737 000062 001412 #WH,RMCS10 :WRITE HEADER AND DATA 
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001555 MOV #PUT INK R2 ;WRITE REGISTER INDEX TABLE 
900006 MOVB  (R2)¢ 
0000 MOVB Sree: cr + 
pea MOVB #RMOF , (R2)+ 
900002 MOVB  #RMWC.(R2)+ 

MOVB #RMBA, (R2)+ 
000000 MOVB = #RMCS1, (R2)+ 
000200 MOVB 4200. (Rone 
036004 JSR PC,PUT ;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 5$ “GO TO 5$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT * ERROR # ger Se BY PUT SUBROUTINE 
026606 ie JMP 228 760 TO 22$ IF ERROR 
000002 MOV #2,R2 :D0 2 CLOCK Crees 
036520 6$: JSR PC,STIMER * START CLOCK TIMER 
000200 7$: BIT WBIT7,@CLKADR :TIMER DONE?? 
BEQ 7$ NO! ! 
DEC R2 :DEC NUMBER OF CYCLES 
BNE 6$ + CONTINUE IF NOT DONE 
000063 MOV #WH!GO.RMCS10 ;WRITE HEADER AND DATA 
036004 JSR PC,PUT 3GO WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 8$ G0 TO 8$ IF NO ERROR 
NOP RETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
026606 8$ JMP 22$ ‘G0 TO 22$ IF ERROR 
;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
035450 JSR PC,GETSTS 
036356 JSR PC, TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
035534 JSR PC,GET ;G0 READ REGISTER(S) WITH GET SUBROUTINE 
BR 9$ "GO TO 9$ IF NO ERROR 
NOP *RETURN HERE IF ERROR 
EMT “ERROR # DEFINED BY GET SUBROUTINE 
026606 95 JMP 22$ GO TO 22$ IF ERROR 
sVERIFY RESULTS OF WRITE COMMAND 
036552 JSR PC,PRIERR 3GO CHECK FOR PRIMARY ERRORS 
BR 10$ ‘GO TO 10$ IF NO ERROR 
NOP [RETURN HERE IF ERROR 
EMT * ERROR & Phe pik BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
026606 a JMP 228 ‘GO TO 22$ IF ERROR 
051612 JSR PC, DTASTS 360 VERIFY RESULTS OF DATA TRANSFER 
BR 11$ 360 TO 11% IF NO ERROR 
NOP “RETURN HERE IF ERROR 
EMT ERROR “ DEFINED BY DTASTS SUBROUTINE 
JSR PC,a(SP)+ *60 BACK FOR MORE ERROR CHECKS 
026606 cn JMP 228 'GO TO 22$ IF ERROR 
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FORMAT ERROR T 


JSR PC SECERR :60 CHECK FOR SECONDARY ERRORS 
BR 128 NO ERROR 


0 12$ I 
NOP BP TURN frre 1 F ERROR 
EMT TERROR # DEFINED BY SECERR SUBROUT INE 
JSR PC,a(SP)+ £60 BACK FOR MORE ERROR CHECKS 
MP 22$ +60 TO 22$ IF ERROR 


12$: 


sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN IN OPPOSITE FORMAT 
SAND CHECK THAT “‘FER"’ SETS 


sCHANGE TO OPPOSITE FORMAT 


3CHANGE BUS ADDRESS 
ZREAD HEADER & DATA COMMAND 


260 WRITE REGISTER(S) WITH PUT SUBROUTINE 
;G0 TO 13$ IF NO ERROR 


COM RMOF O 
BIC #*C<FMT16>,RMOFO 
MOV #BUF TWO ,RMBAO 
MOV #RH,RMCS10 


JSR PC PUT 
BR 13$ 


NOP TRETURN HERE IF ERROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
ne JMP 22$ :60 TO 22$ IF ERROR 
“mov #2,R2 :D0 2 CLOCK CYCLES one 
14$: JSR PC.STIMER START CLOCK TIMER 
15$: 81 #B1T7,ACLKADR :TIMER DONE ?? 
DEC R2 AY ts “NUMBER OF CYCLES 
BNE 14$ *CONTINUE IF NOT DONE 
MOV #RH!GO,RMCS10 READ HEADER & DATA COMMAND 
JSR PC PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
BR 16$ :GO TO 16$ IF NO ERROR 
NOP PRETURN HERE IF ER ROR 
EMT TERROR # DEFINED BY PUT SUBROUTINE 
ba JMP 22$ G0 TC 22$ IF ERROR 


WAIT FOR READ TO Come re AND GET STATUS 
JSR PC, TIMOUT WAIT FOR READ TO COMPLETE 


JSR PC,GET :G0 READ REGISTER(S) outs GET SUBROUTINE 
BR 17$ 360 0 17$ IF NO ERROR 

NOP “RETURN HERE IF ERROR 

EMT TERROR # DEFINED BY GET SUBROUTINE 

JMP 22$ ‘GO TO 22$ IF ERROR 


17$: 
VERIFY “= RESULTS ae OPERATION 


:G0 CHECK FOR PRIMARY ERRORS 

BR aT :GO TO 18$ IF NO ERROR 

NOP SRETURN HERE IF ERROR 

EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
JSR PC, a(SP)+ *GO BACK FOR MORE ERROR CHECKS 

JMP 228 'GO TO 22$ IF ERROR 


18$: 


SEQ 0129 
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T26 FORMA E 





T ERROR TEST 
1854 sVERIFY THAT FORMAT ERROR 1S SET 
1855 9 6476 032737 000020 001352 BIT #FER,RMER1I z1S FORMAT ERROR SET?? 
1856 6504 001022 BNE 20$ YES! ! 
1858 926506 737. 051612 JSR PC ,DTASTS 760 VERIFY RESULTS OF DATA TRANSFER 
026512 000405 BR 19$ 760 TO 19$ IF NO ER ROR 
026514 000240 NOP «OP TURN HERE IF ERR 
026516 104 EMT TERROR # DEFINED BY ORTASTS SUBROUTINE 
026520 004736 JSR PC,a(SP)+ G0 BACK FOR MORE ERROR CHECKS 
ioe 026522 000137 026606 JMP 22$ 760 TO 22$ IF ERROR 
1860 056306 013737 001352 001142 198: MOV RMER11,$BDDAT z;BAD DATA FOR TYPEOUT 
1861 026534 013737 001352 001140 MOV RMER1I . $GDDAT SEXPECTED DATA 
1862 026542 052737 000020 001140 BIS #FER, $GDDAT 
1863 026550 104343 EMT 343 
1864 02655 20$: 
1865 02655 004737 037404 JSR PC,SECERR :GO CHECK FOR SECONDARY ERRORS 
026556 000405 BR 21$ :GO TO 21$ IF NO ERROR 
026560 000240 NOP SRETURN HERE IF ERROR 
026562 104000 EMT TERROR # DEF INED BY SECERR SUBROUTINE 
026564 004736 JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
ne 026966 000137 026606 fe JMP 228 'GO TO 22$ IF ERROR 
1867 026572 032737 010000 001444 BIT #FMT16,RMOFO ;TEST ret IN 18 BIT FORMAT AND 
1868 3READ IN 16 BIT FORMAT ? 
1869 026600 001002 BNE 22$ “BR IF YES 
1870 026602 000137 025762 JMP 1$ : TEST AGAIN 
1871 026606 22$: 
1873 FRREAAARAERAAEARERERREREERERERERAEREREERRERRERERERERRERRAERARRERRE 
TRTEST 27 FORMAT HCE, FIRST HEADER WORD 
av aacenenceom nine aenieeeiaemeemaben obser rattte 
026606 7812 
026606 000004 SCOPE SCOP 
026610 000240 NOP SSTART OF TEST 
026612 012706 001100 MOV #STACK,SP INITIALIZE STACK POINTER 
026616 013700 001276 MOV *RO = UNIBUS ADDRESS 
026622 013701 001466 MOV TSTQUE,R1 7(R1) = DEVICE BEING TESTED 
ai 026626 012737 000027 007226 MOV bore $TESTN *:SET TEST NUMBER IN APT MAIL BOX 
1875 026634 012737 000001 027672 MOV #1,25$ sINIT BIT POSITION 
1877 >SETUP PARAMETERS FOR GENERATING DATA BUFFER 
1878 026642 i$: 
1879 02 36642 012737 910000 001444 MOV HEMT 16 RMOFO 216 BIT FORMAT 
1880 026650 012737 001057 001446 MOV #559 ghnoco [CYLINDER = 359. 
1881 026656 012737 001000 001420 MOV =s58oR STRACK = 2, SECT = 0 
1882 026664 oI 737 177376 001414 MOV AL 8. .R :2 + 256 WOR at S COMP) 
1883 026672 12737 101716 001416 MOV #BUF One” RAGAO DATA BUFFER ADDRESS 
1884 026700 012737 2 001412 MOV FO RMESIO SWRITE HEADER AND DATA 
1886 :VERIFY THAT SECTOR IS NOT BAD 
026706 004737 032406 JSR PC ,BADSCT sCALL BAD SECTOR MODULE 
026712 000405 BR [60 TO 2$ IF NO ERROR 
yea rt) ia = acta eee e DEFINED BY BADSCT SUBROUTINE 
26722 b00% 37 027674 JMP 278 760 TO 27$ IF ERROR 
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HCE, FIRST HEADER WORD 
2s: 
1 737 065116 001174 MOV #ZEROS ,STMPO SUSE ALL ZEROS DATA PATTERN 
1 £30 000001 001176 MOV #1,$1MP1 
004737 034640 JSR PC. GENBUF :G0 GENERATE DATA BUFFER 
:PREPARE DEVICE FOR DATA TRANSFER 
004737 031456 pc Ts STPRP PREPARE DEVICE FOR TEST 
154130 WORD 4130 TASK DESCRIPT LOWS: 
SSELECT DEVICE & VERIFY DEVICE AVAILABLE 
[CLEAR CONTROLLER & SELECT DEVICE 
[VERIFY CONTROLLER CLEAR OPERATION 
ACKNOWLEDGE IF VOLUME NOT VALID 
[VERIFY PACK ACKNOWL EDG eee 
; BRATE ‘SKI’ OR “PIP’' IS SET 
VERIFY RECALIBRATION 
000404 4$ '60 TO 4$ IF NO ERROR 
000240 NOP SRETURN HERE IF ERROR 
104000 EMT SERROR # DEFINED BY TSTPRP SUBROUTINE 
000137 027674 JMP 27$ '60 TO 27$ IF ERROR 
; COMPLEMENT DATA BIT IN FIRST HEADER WORD 
033737 027672 101716 BIT 25$ ,BUFONE 31S BIT IN HEADER ON?? 
001404 BEQ $ NO! ! 
045737 027672 101716 BIC 25$ ,BUFONE SRESET BIT IN HEADER 
Ooe737 027672 101716 5$: BIS 25$ BUF ONE :SET BIT IN HEADER 
jgeTuP AND EXECUTE WRITE HEADER AND DATA COMMAND 
012737 000063 001412 MOV #WH!GO,RMCS10 :WRITE HEADER AND DATA 
012702 001555 MOV #PUTINK,R2 [WRITE REGISTER INDEX TABLE 
112722 000006 MOVB  #RMDA, (R2)+ 
112722. 000034 MOVB  &#RMDC.(R2)+ 
112722 000032 MOVB  &#RMOF.(R2)+ 
112722 00000 MOVB  #RMWC.(R2)+ 
112722 000004 MOVB  4#RMBA.(R2)+ 
112722 000000 MOVB  #RMCS1, (R2)+ % 
112722 000200 MOVB #200, (R2)+ 
004737 036004 JSR PC,PUT £60 WRITE REGISTER(S) WITH PUT SUBROUTINE 
000404 BR 7$ 0 7$ IF NO ERROR 
000240 NOP SRETURN HERE IF ERROR 
104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
000137 027670 = JMP 24$ 'G0 TO 24$ IF ERROR 
;SETUP INPUT REGISTER BUFFER FOR READING STATUS 
004737 035450 JSR PC,GETSTS 
004737 036356 JSR PC; TIMOUT zWAIT FOR COMMAND TO COMPLETE 
004737 035534 JSR PC,GET 760 READ REGISTER(S) WITH GET SUBROUTINE 
000404 BR 3b :GO TO 8$ IF NO ERROR 
tant ear EM PER Meats Me SUBROUTINE 
b00s? 027670 JMP 24$ [G0 TO 24$ IF ERROR 
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ORMAT HCE, FIRST HEADER WORD 
1924 4 027126 8$: 
19 é sVERIFY RESULTS OF WRITE COMMAND 
19 ant 004737 036552 JSR PC,PRIERR 760 CHECK FOR PRIMARY ERRORS 
000405 BR 9$ 'G0 TO 9$ IF NO ERROR 
2134 000240 NOP RETURN HERE IF ERROR 
ea 104000 EMT ‘ TERROR # DEF INED BY PRIERR SUBROUTINE 
027140 004736 JSR PC, a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
com 027142 000137 027670 .. JMP 24$ 'GO TO 24$ IF ERROR 
1929 0 146 004737 051612 JSR PC ,DTASTS 369 VERIFY RESULTS OF DATA TRANSFER 
027152 000405 BR 10$ 10$ IF NO ERROR 
027154 000240 NOP + OE TURN HER if IF ERROR 
027156 104000 EMT ERROR # CEFINED BY DTASTS SUBROUTINE 
027160 004736 JSR PC,a(SP)+ CK FOR ! ERROR CHECKS 
ae 97162 000137 027670 cos JMP 24$ <60 TO 24$ IF ERROR 
1931 027166 004737 037404 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
027172 000405 BR 11$ :G0 TO 11$ IF NO ERROR 
027174 000240 NOP SRETURN HERE IF ERROR 
027176 104000 EMT ERROR ‘ DEFINED BY SECERR SUBROUTINE 
027200 004736 JSR PC,a(SP)+ :GO BACK FOR MORE ERROR CHECKS 
027202 000137 027670 JMP 24$ :60 TO 56S IF ERROR 
1932 027206 11$: 
1934 ° ;READ HEADER AND DATA FOR SECTOR JUST WRITTEN 
1935 027206 012737 000073 001412 MOV #RH!GO,RMCS10 ;READ HEADER & DATA COMMAND 
1936 027214 012737 102722 001416 MOV #BUF TWO, RMBAO [CHANGE BUS ADDRESS 
1938 027222 004737 036004 JSR PC PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
027226 000404 BR 12$ *GO TO 12$ IF NO ERROR 
027230 000240 NOP [RETURN HERE IF ERROR 
027232 104000 EMT TERROR # DEFINED BY PUT SUBROUTINE 
027234 000137 027670 JMP 24$ :60 TO 24$ IF ERROR 
1939 027240 12$: 
1941 :WAIT FOR READ TO COMPLETE AND GET STATUS 
194¢ 027240 004737 036356 JSR PC, TIMOUT ;WAIT FOR READ TO COMPLETE 
1944 027244 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
027250 000404 . BR 13$ 13$ IF NO ERROR 
27252 000240 RETURN HER i IF ERROR 
027254 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
027256 000137 027670 JMP 24$ 760 TO 24$ IF ERROR 
1945 027262 138: 
1947 :VERIFY THE RESULTS OF READ OPERATION 
1948 027262 004737 036552 JSR PC PRIERR 760 CHECK FOR PRIMARY ERRORS 
27266 000405 BR 14 :GO TO 14$ IF NO ERR 
027270 000240 NOP + OP TURN HERE IF ERROR 
027272 104000 EMT TERROR # DEFINED BY PRIERR SUBROUTINE 
027274 004756 JSR PC, a(SP)+ 'GO BACK FOR MORE ERROR CHECKS 
i 927508 000137 027670 ‘ee JMP 24$ 'G0 TO 24$ IF ERROR 
1950 027302 032737 020000 027672 BIT #SSF,25$ 3 SHOULD SSE BE SET ? 
1951 027310 001037 BNE 16$ 
1952 027312 032737 140000 027672 BIT #MSE!USE,25$ + Soul BSE BE SET ? 
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FORMAT HCE, FIRST HEADER WOR 
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001400 


001400 


BNE 18$ 
BIT #FMT16,25$ 
BEQ 20$ 


sVERIFY THAT sea” i SET 
BIT 


15$: 


: VERIFY 
168: 


-17$: 


; VERIFY 
18S: 


19$: 


#FER,RMERTI 
22$ 


BNE 

JSR PC,DTASTS 

BR 15$ 

NOP 

EMT 

JSR PC,a(SP)+ 
JMP 24$ 

MOV RMER11,$BDDAT 
MOV RMER11,$GDDAT 
BIS #FER, $GDDAT 
EMT 343 

BR 24$ 

THAT SSE IS SET 

BIT #SSE ,RMER2I 
BNE 22$ 

JSR PC,DTASTS 

BR 17$ 

NOP 

EMT 

JSR PC,a(SP)+ 
JMP 24$ 

MOV RMER21 , $BDDAT 
MOV RMER2Z1 . $GDDAT 
BIS #SSE,SGDDAT 
EMT 224 

BR 24$ 

THAT BSE IS SET 

BIT #BSE ,RMER2I 
BNE 22$ 

JSR PC, DTASTS 

BR 19$ 

NOP 

EMT 

JSR PC,a(SP)+ 
JMP 24$ 

MOV men »$BDDAT 
MOV RMER i 2SSDDAT 
BIS 

EMT 

BR 243 





SEQ 0133 


sYES 33 
31S THIS FER ?? 
sNO !! 
IS _FER SET ?? 
YES !! 


260 VERIFY RESULTS OF DATA TRANSFER 

760 TO 75$ IF NO ERROR 

RETURN HERE IF ERROR 

;ERROR ° sid BY DTASTS SUBROUTINE 
BACK FOR MORE ERROR CHECKS 

60 TO 24$ IF ERROR 


sRECEIVED STATUS 
ZEXPECTED STATUS 


31S _"SSE* BIT SET ? 

sYES La 
3GO VERIFY RESULTS OF DATA TRANSFER 
760 TO 17$ IF NO ERROR 
RETURN HERE IF ERROR 
sERROR # CEFINED BY DTASTS SUBROUTINE 
GO BACK FOR MORE ERROR CHECKS 
760 TO 24$ IF ERROR 


GET RECIEVED STATUS 
7GET EXPECTED STATUS AND 
ET SSE. 


sSKIP REST OF TEST 


ROR 
D BY DTASTS SUBROUTINE 
360 BACK FOR a Mew CHECKS 


G0 TO 24$ IF ERR 
RECEIVED STATUS 
EXPECTED STATUS é 


3SKIP REST OF TEST 
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Te? FORMAT HCE, FIRST HEADER WORD 


1995 “VERIFY THAT HCE IS SET 
1996 027544 20$: 
1997 027544 032737 000200 001352 BIT #HCE ,RMER11 z1S "HCE" SET?? 
1998 027552 001031 BNE 22$ YES!! 
2000 027554 737 051612 JSR PC ,DTASTS :60 VER FY RESULT > OF DATA TRANSFER 
027560 iter BR 21$ 5215 F NO ERROR 
027 000240 NOP ZRETURN, NER } IF ERROR 
027564 104 EMT ZERROR # DEFINED BY DTA_TS SUBROUTINE 
027566 0047 JSR PC,a(SP)+ CK FOR MORE ERROR CHECKS 
we 9 7370 137 027670 ate JMP 24$ £60 TO 24$ IF ERROR 
300 027574 013737 001352 001142 MOV RMER11,$BDDAT :RECEIVED STATUS FOR TYPEOUT 
0 7602 013737 001352 001140 MOV RMER11 .$GDDAT SEXPECTED STATUS 
2004 027610 052737 001140 BIS #HCE, SGDDAT 
2005 027616 012737 090001 001174 MOV #1, $TMPO 3GET HEADER WORD NUMBER 
2006 027624 013737 027672 001176 MOV 25$,$TMP1 SGET FAILING BIT POSiTION 
2007 027632 104344 EMT 344 
027634 000415 BR 24$ 
2009 027636 22S: 
2011 :CHECK FOR OTHER ERRORS 
2012 027636 004737 037404 JSR CERR :60 CHECK FOR SECONDARY ERRORS 
027642 000405 BR 23$ 0 23$ IF NO ERROR 
027644 000240 NOP OP TURN HERE iF ERROR 
027646 104000 EMT TERROR # DEF INED BY SECERR SUBROUTINE 
027650 004736 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
027652 000137 027670 JMP 24$ *G0 TO 24$ IF ERROR 
2013 027656 23S: 
2015 ZADVANCE | THE BIT POSITION AND FORMAT AGAIN IF NOT DONE 
2016 027656 00637 027672 25$ sSHIFT TO NEXT BIT POSITION 
2017 027662 001404 BeG 26$ SEXIT IF 
018 027664 000137 026642 JMP 1$ 760 DO NEXT SECTOR 
2020 027670 000401 24$: BR 27$ : JUMP TO NEXT TEST 
; 2021 027672 000000 25$: .WORD O *STORAGE FOR BIT POSITION 
2023 027674 26$: 
2024 
2025 027674 27$: 
2027 RRA AAEAAERERAEEREEEREEERAEEERERAERAERAREEAERAEREREREREREEREEEEE 
TEST 30 FORMAT HCE, SECOND HEADER WORD 
FRRAAARAAAAAAERARRARAREAAAAAEEEAERAEREEEERREERREARRAERAARAARERERERE 
027674 78130: 
027674 000004 SCOPE SCOP 
027676 000240 NOP “START OF TEST 
027700 Ole 06 001100 MOV #STACK,SP i INITIALIZE STACK POINTER 
027704 013700 001276- MOV $BASE RO = UNIBUS ADDRESS 
027710 013701 00146 MOV TSTQUE ,R1 Hit} = DEVICE BEING TESTED 
‘a 027714 012737 000030 001226 MOV } 0,$TESTN +:SET TEST NUMBER IN APT MAIL BOX 
2029 027722 012737 00000} 030516 MOV #1,19$ sINIT BIT POSITION 
2031 “SETUP PARAMETERS FOR GENERATING DATA BUFFER 


2032 027730 i$: 


nae 


Ve 
2039 027766 


EEERRSGS 
Bees 
FSNER 


5 


BOS 
aba) 
Wh O09 

3 

w 

-* 


WONAU 
S oo 
x 


oOo SCOOoOSooSooSoSooO 


sue 


SS8ss 
WBuUywayr 


3 


=-ooO 
Oonon 


serene 


ze 


S Sesseseses 


f{\ 
Ss 
ow 

ss _ 
Ss £&oO eo 
3 
~ 


$ 
® 


030156 


Te ae 737 
1 
1 


012737 
012737 
004737 


“ 
Ww 


at I II BIOO 
he ed ed td od od 
RoPonoNnonofnoNngnony 


SNS 


PS 
o 


01 

177376 
101 8 
00006 


032406 
063446 
030520 
065116 
000001 
034640 


031456 


030520 


030516 
030516 
030516 


Ss ed et 
SRRELRSE 
= OE 
VALLOW 


101720 
101720 
101720 


001412 


F 11 


RM8O FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 13-64 
FORMAT HCE, SECOND HEADER WORD 


MOV #559. .RMDCO sCYLINDER = 559. 
MOV MDAO RACK = 2, SECTOR = 0 
MOV sintion RMOFO $16, T FORMAT 
MOV f- co 2 + 256 WORDS (2°S COMP) 
MOV #BUFON ONE , RMBAO ‘DATA BUFFER ADDRESS 
MCV Rncsion~ [WRITE HEADER AND DATA 
;VERIFY THAT SECTOR 1S NOT BAD 
JSR PC ,BADSCT CALL L BAD SEC TOR MODUL 
TYPE  ,SCTMSG 1 OPE BAD SECTOR MESSAGE 
EMT TERROR # DEFINED BY BADSCT SUBROUTINE 
1. JMP 21$ 760 TO 21$ IF ERROR 
: mov #ZEROS -$THPO ZUSE ALL ZEROS DATA PATTERN 
- JSR PC. GENBUF :G0 GENERATE DATA BUFFER 
:PREPARE DEVICE FOR DATA TRANSFER 
JSR PC, TSTPRP PREPARE DEVICE FOR TEST 
¥ 154130 * TASK DESCRIPTOR AS FOLLOWS: 
SSELECT DEVICE be VERIFY DEVICE AVAILABLE 
*CLEAR CONTRO Re SELECT DEVICE 
VERIFY SUNT ROLLER CLEAR OPERATION 
[PACK ACKNOWLEDGE IF VOLUME NOT VALID 
S VERIFY PACK ACKNOWL EDGE 
SRECALIBRATE IF ‘'SKI'' OR "PIP" IS SET 
[VERIFY RECALIBRATION 
BR 4$ 760 TO 4$ IF NOE 
NOP *RETURN HERE IF ERROR 
EMT SERROR # DEFINED BY TSTPRP SUBROUTINE 
JMP 21$ 760 TO 21$ IF ERROR 
jgOMPLEMENT DATA BIT IN SECOND HEADER WORD 
BIT 198 .BUFONE+2 31S BIT IN HEADER ON?? 
BIC 19$,BUFONE+2 NeSET BIT IN HEADER 
5$: BIS 19$,BUF ONE +2 :SET BIT IN HEADER 
ie TuP AND EXECUTE WRITE HEADER AND DATA COMMAND 
MOV #WH!GO,RMCS10 :WRITE HEADER AND DATA 
MOV #PUTINK,R2 SWRITE REGISTER INDEX TABLE 
MOVB  &#RMDA, (R2)+ 
MOVB #RMDC.(R2)+ 
MOVB = #RMOF . (RO) 
MOVB armac s (R )+ 
MOVB  4#RMBA.(R2)+ 
mova anncs| tho) 
MOVB #200, (R2)+ 
JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUSROUTINE 
BR 7$ *60 TO 7$ IF NO ERROR 
NOP : HERE IF ERROR 














SEQ 0135 













G6 11 


CZRNEAO RM8O FCTNL PT2 MACRO V04. 300.2 28-JAN-B2 16:38:23 PAGE 13-65 SEQ 0136 
T FORMAT HCE, SECOND HEADER 
EMT sERROR # DEFINED BY PUT SUBROUTINE 
eats b86939 030514 JMP 18$ :G0 TO 18$ IF ERROR 
7 0 7$: 
:SETUP INPUT REGISTER BUFFER FOR READING STATUS 
74 030166 004737 035450 JSR PC,GETSTS 
03 030172 004737 036356 4eR PC. TIMOUT ;WAIT FOR COMMAND TO COMPLETE 
itd 030176 004737 035534 JSR PC,GET 3GO READ REGISTER(S) WITH GET SUBROUTINE 
030202 000404 BR 8$ TO 8$ IF NOE RROR 
030204 000240 NOP ; ZRETURN | HERE IF ERR 
030. 104 EMT TERROR # DEFINED BY Ofer SUBROUT INE 
030210 000137 030514 JMP 18$ 760 TO 18$ IF ERROR 
2078 030214 8$: 
2080 ; VERIFY —_ GF WRITE COMMAND 
1 030214 004737 036552 PC,PRIERR 360 CHECK FOR PRIMARY ERRORS 
000405 a 9$° 360 TO 9$ IF NO RROR 
03023 000240 NOP “RETURN HERE IF ERROR 
030224 104000 EMT SERROR # DEFINED BY PRIERR SUBROUTINE 
030226 006738 JSR PC,a(SP)+ *G0 BACK FOR MORE ERROR CHECKS 
030230 000137 030514 in JMP 18$ :G0 TO 18$ IF ERROR 
2083 030234 904737 051612 JSR PC,DTASTS 260 veRit ae ¥ OF DATA TRANSFER 
030240 000405 BR 10$ 0 10$ IF NO ERROR 
030242 000240 NOP 2 OP TURN HERE IF ERROR 
030244 104000 EMT TERROR # DEFINED BY DTASTS SUBROUTINE 
030246 004736 JSR PC,a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
030250 000137 030514 JMP 18$ :60 TO 18$ IF ERROR 
2084 030254 10$: 
2085 030254 004737 037404 JSR PC, SECERR :G0 CHECK FOR SECONDARY ERRORS 
030260 000405 BR 11$ *G0 TO 11$ IF NO ERROR 
030262 000240 NOP SRETURN HERE IF ERROR 
030264 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
030266 004736 JSR PC, a(SP)+ :G0 BACK FOR MORE ERROR CHECKS 
030270 000137 030514 JMP 18$ 760 TO 18$ IF ERROR 
2086 030274 118: 
2088 :READ HEADER AND pata FOR SECTOR JUST WRITTEN 
2089 030274 012737 000073 001412 H!GO,RMCS10 3READ HEADER & DATA COMMAND 
2090 030302 012737 102722 001416 MOV pot TWO, RMBAO [CHANGE BUS ADDRESS 
2092 030310 004737 036004 JSR PC,PUT 360 WRITE REGISTER(S) WITH PUT SUBROUTINE 
030314 000404 BR 12$ 360 0 TO 12$ IF NO ERROR 
030316 000240 NOP [RETURN HERE IF ERROR 
030320 104 EMT TERROR # DEFINED BY PUT SUBROUTINE 
030322 000137 030514 JMP 18$ :G0 TO 18$ IF ERROR 
2095 030326 12$: 
2095 ;WAIT FOR READ TO COMPLETE AND GET STATUS 
sist 030326 004737 036356 JSR PC, TIMOUT sWAIT FOR READ TO COMPLETE 
B 030332 004737 035534 JSR PC,GET :60 READ REGISTER(S) WITH GET SUBROUTINE 
030336 900404 BR 138 13$ IF NO ERROR 
Sates 000500 ORT :RETU, er ea ete SUBROUTINE 
30344 000137 030514 JMP 18$ *G0 TO 18$ IF ERROR 
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030350 
100 
102 030350 
30550 
30 
30 
030 
030364 
$103 030370 
104 
$102 
196 030370 
444 030376 
108 
2109 030400 
030404 
030406 
030412 
030414 
2110 030420 
2111 0304 
sii¢ 030426 
21135 0304 
2114 Sigh} 
2115 03045 
2116 030456 
2117 030460 
2118 030462 
2119 
2120 
2121 030462 
030466 
030470 
030472 
030474 
03047 
g1c¢ 030502 
212 
2124 
2125 030502 
$isé 030506 
$15 030510 
$159 030514 
3150 03051 
136 030520 
13 
134 030520 
$132 
136 
030520 
030520 


=-—OoooooO 
par erty er 
vg Arh a | 
ad wo 
ANN 


R 
¥ 
~ 


000240 
000 


385 
Bets 


036552 


030514 
000200 


051612 


030514 


00135 
00135 
000200 


000002 
030516 


037404 


030514 


030516 
027730 


001352 


13$: 
: VERIFY THE RESULTS OF READ OPERATION 
PC,PR 360 CHECK FOR PRIMARY ERRORS 
14$ 760 TO 14$ IF RROR 
NOP RE TURN HERE IF. RROR 
EMT TERROR # SEEINED® BY PRIERR SUBROUTINE 
JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
JP 18 [60 TO 18$ IF 


14$: 


zVERIFY THAT HEADER COMPARE ERROR IS SET 
BIT #HCE ,RMERTI 


31S “HCE’’ SET?? 
YES! ! 


GO VERIFY RESULTS OF DATA TRANSFER 
360 TO 15$ IF NO ERROR 
RE —, HERE IF ERROR 
ERR OR # i. BY DTASTS SUBROUTINE 
CK FOR MORE ERROR CHECKS 
760 TO 18$ IF ERROR 


sRECEIVED STATUS FOR TYPEOUT 
ZEXPECTED STATUS 


GET HEADER WORD NUMBER 
3GET FAILING BIT POSITION 


360 cree FOR tenon ERRORS 

:G0 TO 17$ IF NO ERROR 

RETURN HERE IF ERROR 

SERROR # DEFINED BY SECERR SUBROUTINE 
BACK FOR MORE ERROR CHECKS 

760 TO 18$ IF ERROR 


DONE 
SHIFT TO NEXT BIT POSITION 
: F DONE 
3G0 DO NEXT SECTOR 


3 JUMP OVER STORAGE 
zSTORAGE FOR BIT POSITION 


FARRAR RARARARARAERRERERERARARAAAERAERARARAEEEEREREERARRERREERERERE 


1 paceman ai tac eal ant mI ins «arpa 


JSR PC DTASTS 
BR 15$ 
NOP 
EMT 
JSR PC,a(SP)+ 
JMP 18$ 
15$: 
MOV RMER11,$BDDAT 
MOV RMER11,$GDDAT 
BIS WHCE ,SGDDAT 
MOV #2, $TMPO 
MOV 19$,$TMP1 
EMT 344 
BR 18$ 
16$: 
sCHECK FOR OTHER ERRORS 
JSR PC.SECERR 
17$ 
NOP 
EMT 
JSR PC,a(SP)+ G0 
JMP 18$ 
17$: 
ZADVANCE THE BIT POSITION AND FORMAT NEXT SECTOR IF NOT 
BEG 20$ 
1$ 
18$: BR 21$ 
19$: .WORD 0 
20$: 
21$: 
tSTEST 31 FORMAT FE CYLINDERS 
1813 


SCOPE 


sSCOPE CALL 


SEQ 0137 


uated RM8O FC 
131 ORMAT 


2 
4 


oooooo 


5 
5 
5 
5 
540 
546 


sassy 


NMorororonofernonornenr 
ee ed ed ed oe od ss 
B 
~ 


SSEERERLESSEL 


REECE 


Beasaeuwamaanmas 
ata 
eo 


dd ad dd ad dd ed 
WONAULSWN—OVOC 
33: 


RoPoNnonononglonoNnononofery 
SSyvvyyyywlsvss 
—s 
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$40 
7 
7 
7 


1 
1 
13701 
12737 
012737 


oooo oo 
2223 == 


004737 
154130 


oe 


Ssss SS SS 


001060 


101716 


001412 


18: 


; VERIFY 


2$: 


3$: 
4$: 


5$: 


;PREPARE DEVICE FOR DATA TRANSFER 
T 3 PREPARE 4th: # FOR My 


+ ile AND EXECUTE WRITE HEADER AND DATA COMMAND 


MOV 


MOV 
MOV 
MOV 
MOV 


#STACK,SP 

fet 
TIMES 

asi° STESIN 


#FMT16!SSEI mare 
RMW 


111 


Mee OF TEST 


: INITIALIZE _— POINTER 


RO = UNIBUS AD 


2 (R1) = oer nBEING TESTED 


3D0_1_ITERA 


tISer TEST NUMBER IN APT MAIL BOX 
3 SETUP —s FOR dl aaa DATA BUFFER 
#559. ,RMDCO 


YLINDER = 559. 


RACK = 2, SECTOR = 0 


ps’ 15 BIT tor WITH SSEI SET 


- 72 WOR 
#BUFONE,RMBAO :DATA BUFFER * ADDRESS 
#WH,RMCS10 SWRITE HEADER AND DATA 


THAT SECTOR IS NOT BAD 
JSR PC ,BADSCT 


BR 
TYPE 
EMT 
JMP 


Ss 
- WORD 


NOP 
EMT 
JMP 


MOV 
MOV 
vB 


-SCTMSG 
12$ 
RMDCO,#560. 
33 

12$ 
PC ,GENBUF 
SSF ENB 
#SSF ,BUF ONE 


154130 


6$ 


12$ 


#WH'GO,RMCS 
#PUTINX,R2 
a (R2)+ 
#RMDC , (R2)+ 
#RMOF , (R2)+ 
MRMWC , (R2)+ 


10 


oC oe 
2G 0 2$ IF NO 


SEC ay MODULE 
ROR 


ER 
ead SECTOR MESSAGE 
< ERROR # DEFINED BY BADSCT SUBROUTINE 
760 TO 12$ IF ERROR 


z1S DESIRED CYLINDER, OUTSIDE FE CYLINDERS ? 
:YES, EXIT TEST 


360 GENERATE DATA BUFFER 

sTEST SSF ENABLE FOR 1ST HEADER WORD 
; O NOT SET ‘‘SSF" 

[YES, SET SSF BIT 


sTASK DESCRIPTOR 


AS FOLLOWS: 
7SELECT DEVICE :. VERIFY DEVICE AVAILABLE 
AR CONTROLLE DEVICE 


R & SELECT 


C 
VERIFY CONTROLLER CLEAR OPERATI 
sPACK ACKNOWLEDGE IF 


VOLUME NOT VALID 


3VERIF Y ate ety 
CALIBRATE 


SRETURN HERE IF ERROR 
TERROR # DEF a 3 , ey TSTPRP SUBROUTINE 


760 TO 12$ IF E 


EDGE 
F ''SkI'’ OR "PIP" IS SET 


AL 
VERIFY RECALIBRAT ION 
O 6$_ IF NO ERR 


sWRITE HEADER AND D 
SWRITE REGISTER INDEX" TABLE 


SEQ 0138 
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CZRNEAG RMBO FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 13-68 SEQ 0139 
T31 FORMAT FE CYLINDERS 


171 030746 112722 000004 MOVB  #RMBA, ( 

7 752 112722 0 MOVB apncs| Be 

73 30756 112722 0002 MOVB  (R2)+ 

175 030762 004737 036004 JSR PC,PUT :G0 WRITE REGISTER(S) WITH PUT SUBROUTINE 
030766 000404 BR 7$ 760 TO 7$ IF NO ERROR 
930770 000240 NOP SRETURN HERE IF ERROR 
030772 104 EMT TERROR # DEFINED BY PUT SUBROUTINE 
030774 000137 031146 JMP 12$ 760 TO 12$ IF ERROR 

2176 031000 7$: 

2178 sSETUP GET INDEX TABLE TO READ ALL REGISTERS 

atte 031000 004737 035450 JSR PC,GETSTS 360 TO GETSTS SUBROUTINE 

2180 ;WAIT FOR COMMAND TO COMPLETE 

ame 031004 004737 036356 JSR PC, TIMOUT 360 TO TIMOUT SUBROUTINE 

2182 031010 004737 035534 JSR PC,GET 360 READ REGISTER(S) WITH GET SUBROUTINE 
031014 000404 BR Be 760 TO 8$ IF NO ERROR 
031016 000240 NOP *RETURN HERE IF ERROR 
031020 104000 EMT TERROR # DEFINED BY GET SUBROUTINE 
031022 000137 031146 JMP 12$ 760 TO 12$ IF ERROR 

183 031026 8$: 

2185 :VERIFY RESULTS OF WRITE COMMAND 

2186 031026 004737 036552 JSR PC,PRIERR 360 CHECK FOR PRIMARY ERRORS 
031032 000405 BR 9$ 760 TO 9$ IF NO ERROR 
031034 0600240 NOP SRETURN HERE IF ERROR 
031036 104000 EMT TERROR # DEFINED BY PRIERR SUBROUT INE 
031040 004736 JSR PC,a(SP)+ +60 BACK FOR MORE ERROR CHECK 
031042 000137 031146 JMP 12$ :GO TO f2$ 1 IF ERROR 

2187 031046 9$: 

2188 031046 004737 037404 JSR PC, SECERR :60 CHECK FOR SECONDARY ERRORS 
031052 000405 BR 10$ 10$ IF NO ERROR 
031054 000240 NOP BE TURN HERE IF ERROR 
031056 104000 EMT TERROR # DEFINED BY SECERR SUBROUTINE 
031060 004736 JSR PC,a(SP)+ 760 BACK FOR MORE ERROR CHECKS 
031062 000137 031146 JMP 12$ :GO TO 12$ IF ERROR 

2189 031066 10$: 

2191 sy INCREMENT ADDRESS 

2192 031066 005237 001420 INC zADVANCE SECTOR COUNT 

2193 031072 123727 001420 000037 CMPB —s- RMDAO, #31. 3DONE jALL SECTORS ? 

2194 031100 101420 BLOS 11$ NO ! 

2196 031102 105037 001420 CLRB| RMDAO sSTART AT SECTOR 0 AND 

2197 031106 105237 001421 INCB —RMDAO+1 SADVANCE TO NEXT TRACK. 

198 031112 123737 001421 001335 CMPB  ——- RMDAO+1, LSTRK+1 :DONE \WITH LAST TRACK ? 

3199 031120 101410 BLOS 11$ NO ! 

2201 031122 105037 001421 CLRB  ——« RMDAO+1 :START WITH TRACK 0 AND 

3 02 031126 005237 001446 INC RMDCO ZADVANCE TO NEXT CYLINDER. 

203 031132 023727 001446 001060 CMP RMDCO,#560. ;DONE WITH LAST CYLINDER ? 

2204 03114 101002 BHI 12$ +Y 

2205 031142 000137 030570 11$: JMP 1$ 60 D0. TEST AGAIN 


2206 
2207 031146 12$: 





nem 
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END OF SUB-PASS ROUTINE 


1 .SBTTL END OF SUB-PASS ROUTINE 
¢ :THIS IS THE END OF SUB-PASS {ROUTINE THIS ROUTINE IS USED TO TO | 
4 S TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST | 
5 3SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES 
6 ; TO TEST. EXIT IS MADE TO *SEOP* ROUTINE. OTHERWISE, RETURN 
i 71S MADE TO ‘SHUT’ ROUTINE. 
9 031146 SEOSP: SCOPE 
10 031150 900240 NOP 
1 O3115¢ 013700 001466 MOV TSTQUE ,RO 3GET POINTER TO TSTQUE 
le 031156 062700 000002 ADD #2,R0 SADJUST POINTER TO NEXT DEVICE 
13 031162 010037 001466 MOV RO, TSTQUE SSAVE POINTER TO TSTQUE 
14 031166 005710 TST (RO) SANY MORE DEVICES FOR TEST ? 
15 031170 00140 BEQ 1$ ‘BR IF 
16 031172 000137 031422 JMP SHUT [YES, JUMP TO ‘SHUT® ROUTINE 
17 031176 012737 001470 001466 1S: MOV ATSTQUE+2, TSTQUE j INITIALIZE POINTER TO FIRST DEVICE IN 
18 sTEST QUE TABLE 
20 .SBTTL END OF PASS ROUTINE 
FRARAAERERERRARRRRERRERERERERERAAARAERARERARERARERRRREREREEREREE 
:SINCREMENT THE PASS NUMBER (S$PASS) 
TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY" 
WHERE XXXXX AND YYYYY ARZ DECIMAL NUMBERS 
:e]F THERES A MONIT 
teJF THERE ISN'T JUMP TO SHUT 
031204 SEOP: 
031204 000240 NOP 
031206 005037 001116 CLR STSTNM i: ZERO THE TEST NUMBER 
031212 005037 001206 CLR STIMES ‘ZERO THE NUMBER OF ITERATIONS 
31216 005237 001230 INC S$PASS j EINCREMENT THE PASS NUMBER 
031222 042737 100000 001230 BIC #100000,$PASS ::DON'T ALLOW A NEG. NUMBER 
1230 005327 DEC (PC)+ LOOP? 
031232 1 SEOPCT: .WORD 1 
031234 003066 BGT $DOAGN z7YES 
031236 012737 MOV (PC)+,a(PC)+  ;;RESTORE COUNTER 
031240 1 SENDCT: .WORD 1 
031242 031232 EOPCT 
031244 104401 031252 TYPE 65$ iE TYPE ASCIZ STRING 
031250 000407 BR 64$ [GET OVER THE ASCIZ 
siti 58: ,ASCIZ <12><15>/END PASS #/ 
031270 013746 001230 MOV SPASS,-(SP) ii SAVE SPASS FOR TYPEOUT 
YPE PASS NUMBER 
031274 104405 TYPDS 3360 TYPE-~DECINAL asc WITH SIGN 
031276 005737 001126 TST SERTTL SEE IF AN Y ERRORS THIS PASS 
031302 001431 BEQ $GT42P 7:BR IF NO ERRORS TO REPORT 
031304 104401 031312 TYPE 67$ iE TYPE ASCIZ STRI 
031310 000421 BR 66$ GET OVER THE ASCI2 
erent i678: .ASCIZ / TOTAL ERRORS binte LAST REPORT / 
031354 013746 001126 MOV SERTTL,-(SP) z2SAVE SERTTL FOR TYPEQUT 
031360 104405 TYPDS G0 TYPE=-DECINAL ASCII WITH SIGN 
031362 005037 001126 CLR SERTTL *:CLEAR ERROR TOTA 


Z 
> 
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wn" 
o 


& 
So 
-_ 
> 
nw 
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401 001217 $GT42P: TYPE SCRLF r:TYPE CARRIAGE RETURN, LINE FEED 
042 $GET42: MOV a#42,R0 33GET MONI TOR. ADDRESS 
40 $DOAGN CH IF NO MONITOR 
5 RESET tICLEAR THE WORLD. 
1 SENDAD: JSR PC, (RO) 3360 TO MONITOR 
100. 4 NOP e Py AV 
4 NOP 3: 
4 NOP S:ACT11 
SDOAGN: 

137 JMP a(PC)+ + ;RETURN 
42¢ SRTNAD: .WORD SHUT 

37 377 000 $ENULL: -BYTE -1,-1,0 s;NULL CHARACTER STRING 
737 001326 SHUT: TST CTLFG ;WAS CONTROL C FLAGGED ? 
002 BNE 1$ ‘BR IF YES 

137 007524 JMP READY + CONTINUE 

737 000042 1$: TST an2 + ANY MONI TOR PRESENT ? 
002 BNE 2$ :BR IF YES 

137 005434 JMP START G60 iO START 

037 001300 2$: CLR SDEVM [FUDGE NO DRIVES 

137 031204 JMP SEOP SRETURN TO $EOP 


on 


M11 
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-SBTTL TEST PREPARATION MODULE 


THIS MODULE PREPARES THE a dt gs FOR THE EXECUTION OF A TEST 
REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED. THE USER 
SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES 

USING SUBROUTINES. 


4 

: 

8 CALL: 

9 : JSR PC, TSTPRP 

10 : .WORD NNNNNN TASK/VERIFY DESCRIPTOR 

11 : BR 2? RETURN HERE IF NO ERROR 

12 : NOP RETURN HERE IF ERROR 

13 : ERROR ERROR DEFINED BY MODULE 

15 s TASK/VERIFY DESCRIPTOR 

16 ; BIT 15 =1 SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE 
18 ; BIT 14 =1 CLEAR CONTROLLER AND SELECT DEVICE 

19 : BIT 13 (RESERVED FOR DRIVE CLEAR) 

20 ; BIT 12 =1 PACK ACKNOWLEDGE IF VOLUME NOT VALID 
22 : BIT 11 =1 RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR 
23 : BIT 10 = 1 RECALIBRATE DRIVE 

24 4a : BIT 9 
25 é (Sw eee ee ee ee ee re 
26 3 BIT 8 
27 3 BIT 7 

28 : BIT6 =1 VERIFY CONTROLLER CLEAR OPERATION 

30 : BIT 5 (RESERVED FOR DRIVE CLEAR) 

31 : BIT4 =1 VERIFY PACK ACKNOWLEDGE 

32 : BIT 3 =1 VERI"Y RECALIBRATION 

34 : BIT 2 

35 5 BIT 1 

36 ; BIT 0 

38 031456 TSTPRP: 
40 STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL 

41 031456 017637 000000 032402 MOV a(SP) ,39$ sSTORE DESCRIPTOR 

4¢ 031464 062716 000006 ADD #6, (SP) :MOVE SP TO USERS ERROR CALL 
43 031470 105076 000000 CLRB 3 a(SP) SCLEAR ERROR CALL 

44 031474 162716 000004 SUB #4, (SP) “MOVE SP TO NO ERROR RETURN 
46 031500 004737 035450 JSR PC,GETSTS ;SETUP TO READ ALL REGISTERS 
47 031504 004737 035534 JSR PC.GET °GET RMER 

48 031510 000411 BR 2$ “BR IF NO ERROR DETECTED 

49 031512 000401 BR 1$ [GET OVER ERROR R 

50 031514 000000 -WORD 0 7ER ROR DEFINED BY GET SUBROUTINE 
51 031516 062716 000004 1$: ADD #4, (SP) XFER ERROR TO USER AND 

52 031522 113776 031514 000000 MOVB  1$-2,a(SP) SET ERROR NUMBERS 

23 031530 000137 032372 JMP 37$ 

38 031534 013737 001400 032404 28: MOV RMER21,40$ :GET RMER2 AND SAVE FOR LATER 
57 2 2 REE ERERERAAERAAAEAEAEREEKEEEREEEARERAAAEREAEEEEE | 
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032402 
043762 
000004 
031560 
032372 


040000 


045454 


000004 
031620 
032372 
000100 
035534 


000004 
031660 
032572 


045572 


000004 
031710 
032372 


910000 


035534 


032402 


000000 


032402 


000000 


000000 


032402 


7SELECT peyice Ns cspenat DEVICE :SELECT DE IF 81 IT 15 SET IN TASK 


T DEVICE?? 

i! 4$ *NO!! 

JSR PC ,DEVSEL 360 SELECT DEVICE 

BR 4$ [NO ERROR = CONTINUE 

.WORD 0 sERROR NUMBER FROM DEVSEL 
38: ADD #4, (SP) TRANSFER ERROR TO USER 

MOVB 3$72,8(SP) 

JMP 37$ 

FRRAARARERERRRRERRER EERE RERERAERARERAEREREREREREREREREREERERRREREE 

jELEAR CONTROLLER IF BIT 14 IS SET IN TASK 

BIT #B1T14,35$ i CLEAR CONTROLLER?? 

BEQ 13$ =NO 

JSR PC, CNTCLR 360 CLEAR CONTROLLER 

BR zs [CONTINUE = NO ERROR 
5$: ,WORD 0 sERROR NUMBER FROM CNTCLR 
6$: ADD #4, (SP) TRANSFER ERROR TO USER 

MOVB 5$.a(SP) 

JMP 37$ 

FRRAAAAAAERAERERERAERERERERERARRERRRERREREREREREERERRRRERRERERERE 

iVERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK 

BIT #B1T6,39$ :VERIFY?? 

BEQ 13$ NO! ! 

JSR PC,GET 360 GET STATUS 

BR 108 [NO ERROR GETTING STAIUS 
8$: .WORD 0 sERROR FROM GETTING STATUS 
9$: ADD #4, (SP) * TRANSFER ERROR TO USER 

MOVB = 8$, a( SP) 

JMP 37$ 
10$: JSR PC, CLRSTS :G0 VERIFY STATUS CLEAR 

BR 138 [NO ERROR IN CLEAR 
11$: .WORD 0 sERROR IN STATUS CLEAR 
12$: TST (SP)+ [STRIP RETURN ADDRESS TO 

ADD #4, (SP) * SUBROUTINE AND TRANSFER 

MOVE 118.a¢SP) TERROR TO USER 


RARER AAEAEERAAERERRERERERAEAERAAEREERARAEERAAERAEEEEEREAEREERERERE 


* EXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS 
“NOT VALID 

BIT s9[T12.598 sPACK ACKNOWLEDGE?? 

BEQ 2 sNO!! 


JSR PC GET 


ne 
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1 


004737 
000410 


03237. 

000100 

000023 
0000 


00 
000200 
036004 


000004 
032034 


036356 


000020 


035534 


000004 
032076 


046452 


000004 
032124 


002000 
004000 


035534 
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001350 
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032402 


000000 
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032402 
032402 
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: SEQ 0144 


BR 16$ NO ERROR GETTING RMDS 
BR 15$ 
14$:  . WORD 0 
15$: ADD #4, (SP) : TRANSFER ERROR TO USER 
MOVB 148, a(SP) 
JMP 37$ 
16$: BIT #VV,RMDSI :1S VOLUME VALID?? 
BNE 25$ YES! ! 
MOV #PAKACK!GO,RMCS10 :LOAD PACK ACK COMMAND 
MOVB ##RMCS1,PUTINX ;SETUP REGISTER INDEX TABLE 
MOVB  #200,PUTINX+1 
JSR PC PUT 360 WRITE COMMAND 
BR 198 | “NO ERROR LOADING REGISTER 
17$: WORD 0 sERROR FROM PUT SUB 
18$: ADD #4, (S TRANSFER ERROR TO USER 
MOVB =. 17$, a( SP) 
37$ 
19$: JSR PC, TIMOUT :WAIT FOR COMMAND TO COMPLETE 
3 2 REE AEAAREREREEEEEEREREREREEREEEKREREREREEEEEERAREEEE! EHREKEEKE 
‘VERIFY PACK ACKNOWLEDGE IF #BIT4 SET IN TASK 
BIT WBIT4, 39 :VERIFY PACK ACKNOWLEDGE?? 
BEQ 25$ =NO!! 
JSR PC,GET :G0 GET STATUS 
BR ee “NO ERROR GETTING STATUS 
20$: WORD O ERROR FROM GFT SUB 
21$: ADD #4, (SP) TRANSFER ERRUR TO USER 
MOVB  20$,a(SP) 
37$ 
22$: JSR PC ACKSTS 3GO CHECK ACKNOWLEDGE 
BR 338 =NO ERROR 
23$: WORD 0 PACK ACKNOWLEDGE ERROR 
24$: TST (SP) ‘STRIP RETURN TO SUB AND 
ADD #4, (S TRANSFER ERROR TO USER 
MOVB =. 23$, a(SP) 
BR 37$ 


ERRATA ARERR REA A REA ERE E REE RE EER E EE 
SRECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND ‘'SKI'' IS SET 

;O0R *PIP’’ IS ACTIVE. 

RECALIBRATE DRIVE IF BIT 10 IS SET 


55$ 
BIT #B1T10,39$ :RECALIBRATE DRIVE ? 
BNE 29$ YES! ! 
BIT #B1T11,39$ sRECALIBRATE?? 
BEQ 38$ NO! ! 
JSR PC,GET :G0 GET RMDS 
BR 28$ ‘NO ERROR GETTING RMDS 
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Test PREPARATION MODUL 


BR 7$ 
36s: WORD sERROR FROM GET SUB 
$: ADD #4, (SP) S TRANSFER ERROR TO USER 
MOVB 268. a(SP) 
BR 
28$: BIT #SK1,40$ :WAS SKI SET ? 
BNE 9$ YES GO, RECALIBRATE 
BIT #PIP,RMDSI iS PIP CTIVE?? 
BEQ 38$ 
29$: MOV #RECAL!GO,RMCS10 :LOAD RECALIBRATE COMMAND 
MOVB  #RMCS1,PUTINX ;AND REGISTER INDEX 
MOVB #200,PUTINX+1 SET TERMINATOR 
JSR PC PUT $60 ISSUE RECALIBRATE 
BR 37 fg =NO ERROR 
BR 30$ 
WORD sERROR IN REGISTER TRANSFER 
30$: ADD #4, (SP) * TRANSFER ERROR TO USER 
MOVB  30$-2,a(SP) 
BR 37$ 
313: JSR PC, TIMOUT :WAIT FOR COMPLETION 
[RRRAAAARERARRERERERRRERRERERRERREREERRERERRRRERERERRRRRRRRERERE 
‘VERIFY RECALIBRATE IF BIT 3 SET IN TASK 
BIT #BIT3,39$ ;VERIFY RECALIBRATE?? 
BEQ NO! ! 
JSR PC,GET 360 GET STATUS 
BR 348 *NO ERROR GETTING STATUS 
32$:  .WORD sERROR FROM GET 
33$: ADD #4, (SP) TRANSFER ERROR TO USER 
MOVB 328, a(SP) 
BR 
34$: JSR PC,RCLSTS 3G0 CHECK RECALIBRATE 
BR 388 [NO ERROR DURING RECALIBRATE 
35$: .WORD 0 yERROR DURING RECALIBRATE 
36$: TST (SP)+ *STRIP RETURN TO SUB AND 
ADD #4, (SP) * TRANSFER ERROR TO USER 
MOVB 35$,a(SP) 
378: sug #2, (SP) :MOVE SP BACK BEFORE ERROR 
at oe PC RETURN TO USER 
39$: .WORD 0 ; TASK/VERIFY DESCRIPTOR 
40$:  :WORD 0 SCONTAINS RMER 


SEQ 0145 
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-SBTTL BAD SECTOR MODULE 


THE MODULE IS INTENDED TO BE CALLED ee! bas TO CALLING THE BUFFER 
SGENERATOR SUBROUTINE, AND PRESERVES THE ‘PUT BUFFER’’ SO THAT THE 
OPERATION. ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT 


THE MODULE RETURNS y THE CALLING TEST WITH THE Ay OR, ASSIGNED 
ZSECTOR IN THE PUT BUFFER AND ALSO_IN LOCATIONS ‘‘ASND. *“ASNDC** 
350 THAT A REFERENCE 1% AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER. 


: THE BAD SECTOR MODULE PERFORMS TWO MAJOR FUNCTIONS: 
(1) RECOVER THE BAD SECTOR FILES AND 

(2) ge 44 THE en OF A SECTOR BASED ON INFORMATION IN 

THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR IF THE ONE 
ELECTED IS NOT AVAILABLE FOR USE. 


INFORMATION REQUIRED BY THE MODULE INCLUDES: 
-R"DCO = THE DESIRED CYLINDER, 
E TRACK —_ “ADDRESS, 


oRMWCO = a 

-RMCS10 =_THE COMMAND, 

“RMOFO = THE FORMAT MODE AND SKIP SECTOR ERROR INHIBIT. 

CALL 

JSR PC ,BADSCT 2 CALL SUBROUTINE 

BR 77? ;RETURN HERE IF NO ERROR 

TYPE oMESSAGE ;RETURN HERE IF THE BAD SECTOR FILE 

;CANNOT BE RECOVERED. 
ERROR . N STHE EMT OFFSET NUMBER 'N’ IS DEFINED 
3BY BAD SECTOR MODULE. 

062716 000006 BADSCT: ADD #6, (SP) 3CLEAR ERROR NUMBER IN USER'S 
105076 000000 CLRB a(SP) sERROR CALL. 
162716 000006 SUB #6, (SP) 


zTEST ‘MEDIA ENABLE’’ TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES 
ZHAVE BEEN RECOVERED. 


005737 001512 TST MEDENB :HAVE BAD SECTOR FILES BEEN RECOVERED ? 

001402 BEQ 1$ ‘BR IF NO 

000137 033764 JMP TYES, BAD SECTOR FILE IS AVAILABLE 
;RECOVER SKIP SECTOR FILE FROM CYLINDER = 559., TRACK = 0 AND 
RECOV VER THE MANUFACTUR 1 USERS BAD BAD SECTOR Five FROM CYLINDER = gine 
iT RACK = LAST TRACK (R ALSO, SAVE THE USER'S PUT BUFFER 

010046 MOV RO,-(SP) -PUSH RO ON STACK 

005000 CLR *START WITH RMCST 

016060 901412 101716 2$: MOV RO TBUF (RO) BUFFERCROD 

062700 00000 ADD sADVANCE TO NEXT BUFFER POSITION - 

022700 000046 CMP #46,RO [END OF BUFFER 

103370 BHIS :NO !! 


a RETRY cont AND LOAD PUT BUFFER AND REGISTER INDEX TABLE 
;SETUP PARSME ewe | 19. READ SKIP SECTOR FILE FIRST (3 SECTORS) 


012737 90000 034500 ° MOV SRETRY COUNT 
012737 001057 001446 MOV #559. RMOCO [DESIRED CYLINDER = 559. 


oO 


oo es I Sst st 


' € 12 
ZRNEAO RMBO FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 16-1 SEQ 0147 
BAD SECTOR MODULE 
57 032474 01 737 1420 MOV #0 BADAQ sSTARTI TRACK = 0, SECTOR = 0 
38 0 202 12737 176 1414 MOV #-558.%3,RMWCO :258. * 3 SECTORS (2°S COMP) 
03251 oi 737 «01 1444 MOV #FMT16,RMOFO 16 BIT FORMAT 
60 032516 012737 102 1416 MOV WBUFTWO,RMBAO SETUP BUS ADDRESS TO READ SKIP SECTOR FILE 
6¢ 0325 4 912700 > 001555 MOV #PUTINX,RO :RO POINTS TO REGISTER INDEX TABLE 
63 032530 112720 MOVB  #RMDA, (RO)+ 
64 0505 1127 9 MOVB  #RMDC,(RO)+ 
65 032540 11 2 MOVB  #RMWC,(RO)+ 
66 052944 112720 MOVB *(RO)+ 
67 032550 112720 000004 MOVB 
68 032954 112720 000000 MOVB  #RMCS1,(RO)+ 
69 032560 112720 000200 MOVB #200, (RO)+ 
20 032554 012600 MOV (SP)4,RO ::POP STACK INTO RO 
Suna SET GET INDEX TABLE FOR READING STATUS 
74 032566 004737 035450 JSR PC,GETSTS ‘SETUP GET INDEX REGISTER FOR STATUS 
75 032572 004737 035534 JSR PC.GET *GET REGISTERS 
76 032576 000411 BR 5$ 7BR IF NO 
77 032 000401 BR 4$ JUMP OVER ERROR NUMBER 
78 032602 000000 “WORD 0 TERROR DEFINED BY GET SUB 
79 032604 062716 000006 4$: ADD #6, (SP) :XFER ERROR TO USER AND 
80 032610 113776 032602 000000 _ MOVB  4$-2,a(SP) [GET ERROR NUMBER. 
81 032616 000137 03341 JMP 42$ 
85 032622 013737 001400 034512 5$: MOV RMER21,79$ 3GET RMER2 AND SAVE FOR LATER 


zCLEAR THE DEVICE USING DRIVE CLEAR COMMAND 
MOV #DRVCL 


86 03263C 012737 000011 001412 R!GO,RMCS10 sLOAD COMMAND IN PUT BUFFER 
87 032636 004737 036004 JSR PC,PUT souTPuT ¢ 
88 032642 000411 BR 8$ SRETURN HERE IF NO ERROR 
89 032644 000401 BR 7$ *GET AROUND ERROR # 
032646 000000 6$: .WORD 0 TERROR # COES HERE 
91 032650 062716 000006 7$: ADD #6, (SP) [MOVE SP TQ USERS ERROR CALL 
92 032654 113776 032546 000000 MOVB  6$,a(SP) *MOVE ERROR NUMBER TO USER 
93 032 000137 0334.2 JMP 42$ 
032 004737 036356 8$ JSR PC, TIMOUT :WAIT FOR COMPLETION 
96 032672 004737 035534 JSR PC GET :GO GET STATUS 
97 032676 000411 11$ sRETURN HERE IF NO ERROR 
98 032700 000401 10$ ‘GET AROUND ERROR # 
99 032702 000000 9$: .WORD 0 SERROR # GOES HERE 
00 032704 062716 900006 10$: ADD #6, (SP) ‘MOVE SP TO USERS ERROR CALL 
01 032710 113776 032702 000000 MOVE 9$.a(SP) *MOVE ERROR # TO USERS ERROR CALL 
02 032716 000137 03341 JMP 42$ 
04 032722 004737 051010 11$: JSR PC DRVSTS :G0 VERIFY DRIVE CLEAR COMMAND 
05 032726 000412 BR 14$ SRETURN HERE IF NO ERROR | 
06 032730 000401 13$ [GET AROUND ERROR 
07 032732 000000 12s WOR TERROR # ERE 
08 032734 005726 13$: TST (SP)+ ‘STRIP RETURN TO S 
v5 Bree SHTIE B00 oogonia TSuSSebey—ZRIVE hwo STO UREN CAL 
1 032750 000137 03341 JMP 42$ 
ig zISSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET 


ee 
am 


m> 
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SECTOR MODULE 
114 0 754 148: 
115 032754 052737 000100 001350 BIT avy -RMDSI z1S VV RESET 2? 
116 0 762 001052 BNE 23$ <NO !! 
118 9 7 012737 000023 001412 MOV #PACACK!GO,RMCS10 :LOAD COMMAND 
119 2 004737 036004 JSR PC PUT 360 PUT COMMAND TO DRIVE 
120 03277 900411 BR 178 [RETURN HERE IF NO OUTPUT ERROR 
121 0 401 BR 16$ [GET AROUND ERROR # 
1 é 0 000000 15$:  .WORD 0 TERROR # GOES HERE 
123 0 066716 16$: ADD #6, (SP) “MOVE SP TO USERS ERROR CALL 
124 033010 11 776 3 000000 MOVB  15$,a(SP) [MOVE ERROR # TO ERROR CALL 
125 033016 000137 03341 JMP 42$ 
137 0330 2 004737 036356 17$ JSR PC, TIMOUT :WAIT FOR COMPLETION 
128 033026 04737 035534 JSR PC.GET *60 GET STATUS FOR PACK ACK 
129 033032 000411 BR 208 SRETURN HERE IF NO ERROR 
130 033034 000401 BR 19$ GET AROUND 
131 033036 000000 18$ “WORD 0 TERROR # GOES HERE 
132 033040 062716 900006 19$ ADD #6 (SP) [MOVE SP TO USERS ERROR CALL 
13 055044 113776 033036 000000 MOVB  18$,a(SP) [MOVE ERROR # TO CALL 
134 033052 000137 033412 JMP $ 
136 033056 004737 046452 20$: JSR PC,ACKSTS 360 VERIFY ACKNOWLEDGE STATUS 
137 O330e5 000412 BR 23$ SRETURN HERE IF NO ERROR 
138 033064 000401 BR 22$ [GET AROUND ERROR # 
139 033066 000000 218: “WORD 0 TERROR # GOES HERE 
140 033070 005726 2$: TST (SP)+ [STRIP RETURN TO SUBROUTINE 
141 033072 062716 000006 ADD #6, (SP) “MOVE SP TO USERS ERROR CALL 
14g 033076 113776 033066 000000 MOVB 21, a(SP) “MOVE ERROR # TO USERS ERROR CALL 
143 033104 000137 033412 JMP 
145 -RECALIBRATE THE DRIVE IF ‘SKI’ OR ‘PIP IS SET 
146 033110 53$: 
147 033110 032737 040000 034512 BIT #SK1,79$ sWAS SKI SET ? 
148 033116 001004 BNE 24$ :YES, GO RECALIBRATE 
149 033120 032737 020000 001350 BIT #PIP,RMDSI *1S PIP SET 2? 
130 033126 001452 BEQ 32$ =NO !! ’ 
152 033130 012737 000007 001412 24$: MOV #RECAL!GO,RMCS10 LOAD RECALIBRATE COMMAND | 
138 033136 004737 036004 JSR PC PUT :PUT THE RECAL COMMAND 
154 033142 0006411 BR 268 SRETURN HERE IF NO ERROR 
155 033144 01 BR 5$ 'GET AR ERROR # 
Raa mat ass: HB Bescgm Fane Fist cmon ca 
158 033154 113776 033146 000000 MOVB  25$-2,a(SP) *MOVE ERROR # TO USERS CALL 
159 033162 40015? b33419 JMP 42$ 
161 033166 004737 036356 26$: JSR PC, TIMOUT sWAIT FOR RECALIBRATE TO COMPLETE 
log 03317 etd 035534 JSR PC-GET 760 GET RECAL STATUS 
16 033176 000411 BR 9§ SRETURN HERE IF NO ERROR 
164 3 00 000401 BR 8$ [GET AROUND E ¥ 
166 $3350 Oe? 14 2, 1 #6, (SP) cE SP SO USERS ERROR CALL 
167 033210 11377 02 000000 MOVB 27$,a(SP) [MOVE ERROR TO USERS CALL 
168 8 216 boos: 3341 JMP 42$ 
190 033222 004737 047246 29$: JSR PC,RCLSTS :G0 VERIFY RECALIBRATE STATUS 


amo 
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BAD SECTOR MODULE 
171 BR $ ;RETURN HERE IF NO ERROR 
7 BR $ [GET AROUND ERROR # 
i 308: . WORD TERROR # GOES HERE 
174 6 i$: ST (SP)+ SSTRIP RETURN TO SUBROUTINE 
175 0 ADD #6, (SP) [MOVE SP TO USERS ERROR CALL 
176 03324 0 000000 MOVB 08 .a(SP) [MOVE ERROR # TO US[R* CALL 
17 0 03341 JMP 428 
9 eee READ THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA 
181 033254 012737 000073 001412 “mov #RH'GO.RMCS10  ;LOAD READ HEADER AND DATA COMMAND 
Be 033262 737 036004 JSR PC PUT [PUT COMMAND 
183 03 11 BR 338 SRETURN HERE IF NO ERROR 
184 03 01 BR § GET RROR # 
185 033272 000000 33$: WORD 0 TERROR # GOES HERE 
186 0 374 716 34$: ADD a (SP) SMOVE SP TO USERS ERROR CALL 
187 033 113776 033272 000000 MOVB 33$,a(SP) SMOVE ERROR # TO USERS ERROR CALL 
188 033306 000137 033412 JMP 423 ; 
190 033312 004737 036356 35$: JSR PC, TIMOUT :WAIT FOR READ OPERATION TO COMPLETE 
191 033316 737 035534 JSR PC.GET [60 GET STATUS FOR READ OPERATION 
19¢ 033322 000411 BR 388 SRETURN HERE IF NO ERROR 
193 033324 000401 BR 7$ [GET AROUND ERROR # 
194 033 000000 36$:  . WORD 0 TERROR # GOES HERE ‘ 
195 033330 062716 000006 37$: ADD #6, (SP) [MOVE SPF TO USERS ERROR CALL 
196 033334 113776 033326 000000 MOVB 36$.a(SP) SMOVE ERROR # TO CALL 
197 033342 000137 033412 JMP 42$ 
199 033346 004737 051612 38$: JSR PC,DTASTS 360 VERIFY RESULTS OF READ OPERATION 
200 033352 000412 BR 41$ SRETURN HERE IF NO ERROR 
201 033354 000401 BR 40$ [GET AR 
302 033356 000000 39$: .WORD 0 TERROR # GOES HERE 
20 033360 005726 40$: TST (SP)+ [STRIP RETURN ADDRESS TO SUBROUTINE 
204 033362 962716 900006 ADD #6, (SP) *MOVE SP TO USERS ERROR CALL 
205 033366 113776 033356 000000 move 39$,a(SP) [MOVE ERROR # TO USERS CALL 
206 033374 000137 033412 JMP 428 
208 033400 032737 040000 001336 41$: BIT #TRE RMCS11 :ANY CONTROLLER ERRORS ? 
209 033406 001001 BNE 42$ “BR IF YES 
310 033410 000477 BR 51$ [NO ERRORS DETECTED 
$\¢ g g RERAEAARAAEAEAREAREEARARAREREEEERAEAARARARAEEERERAARAARERARERERREREAREREE 
21 AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE. 
gig STHE SECTOR WILL BE RETRIED IF POSSIBLE. 
216 033412 005337 034500 42$:  —OEC 74$ :YES, DECREMENT RETRY COUNT AND 
317 033416 001057 BNE 48$ SRETRY IF COUNT IS POSITIVE 
219 ;THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED 
221 033420 032737 100720 001352 BIT #DCKIHCRC!HCE!FER!ECH,RMER1I — ;ANY MEDIA RELATED ERRORS ? 
3 é 033426 001004 BNE 43$ sYES, GO TRY NEXT AVAILABLE SECTOR 
524 033430 032737 100040 001400 BIT #BSE! SSE ,RMER2I yANY MEDIA RELATED ERRORS ? 
3 033436 001453 BEQ 49$ *NO, EXIT AND REPORT ERROR ON RETURN 


6 
227 ;THE ERRORS DETECTED WHILE TRYING TO RECOVER THE BAD SECTOR FILE ARE 
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BAD SECTOR MODULE 
-DUE TO THE MEDIA, SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM 
:ANOTHER AREA ON THE LAST TRACK | 
1 033440 032737 000040 001400 438: BIT #SSE ,RMER2I 3SSE ERROR ? 
é 0 46 14 BEQ 443 *NO ! 
03345 5237 001420 INC RMDAO NP SPLACE SECTOR ADDRESS BY 1 TO 
ZACCOUNT FOR THE SKIP SECTOR ERROR 
5 033454 5 73 001000 001444 BIS #SSEI .RMOFO SAND SET SSEI IN OFFSET REGISTER. 
36 Stare 0006 BR 47$ :TRY AGAIN 
g 0334 062737 900002 001420 44$: ADD #2 RMDAO yADVANCE SECTOR ADDRESS BY 2 
39 033472 022737 001056 001446 CMP #558. ,RMDCO ;READING DEC 144 BAD SECTOR FILE ? 
40 033500 001407 BEQ 45$ SYES ! 
41 033502 005237 001420 INC RMDAO TIF READING SSF, THEN ADVANCE SECTOR ADDRESS BY 1 MORE 
42 033506 122737 000017 001420 CMPBs«a#15. , RMDAO SQUIT IF ALL SSF SECTORS HAVE BEEN 
243 033514 101424 BLOS  49$ TRIED. 
244 033516 00041 BR 47$ 
246 033520 ate 103726 001416 45$: cme WMFGFIL,RMBAO READING MANUFACTURES BAD FILE ? 
248 03 265 122737 000012 001420 CMPB ss #10. ,RMDAO [QUIT IF ALL MFG SECTORS HAVE BEEN 
249 033536 101413 BLOS “TRIED. 
550 033540 122737 000040 001420 46$:  CMPB #32..RMDAO TQUIT IF ALL USER SECTORS HAVE BEEN 
331 033546 101407 BLOS  49$ TRIED. 
253 033550 012737 000003 034500 47$: MOV #3,74$ :REINSTATE RETRY COUNT . FOR THIS SECTOR 
254 033556 162716 000006 48$: SUB #6, (SP) MOVE SP BACK TO NO ERR 
338 033562 000137 032566 JMP 3$ SRETRY THE READ OPERATION 
257 :THE BAD SECTOR FILE CANNOT BE READ 
258 0335 49$: 
259 033566 000240 NOP 
560 033570 032777 020000 145356 BIT #SW13,aSWR zINHIBIT MESSAGE ? 
261 033576 001002 BNE 50 
03 162716 000004 SUB #4, (SP) <MOVE SP TO ERROR RETURN 
363 033604 000137 034474 50$:  JMP 73$ £GO TO MODULE EXIT 
265 ;THE SECTOR WAS RECOVERED WITHOUT ERROR - READ THE MFG/USER FILE IF 
266 “THIS IS THE SSF FILE OR ELSE DONE. 
267 033610 51$: 
268 033610 022737 001056 001446 CMP #558. ,RMDCO sREADING DEC 144 FILES ? 
269 053616 001422 BEQ SYES !! 
70 033620 004737 034514 JSR PC, GETSSF *GET SKIP SECTOR FILE FOR USE 
72 0336246 012737 001056 001446 MOV #558. .RMDCO READ DEC 144 FILE, CYLINDER 558. 
273 033632 013737 001334 001420 MOV LSTRK.RMDAO FILE LAST TRACK, SECTOR = 0 
033640 012737 010000 001444 MOV #FMT16,RMOFO MG” 1T FORMAT 
373 033646 012737 103726 001416 MOV #MFGFIL, RABAO :POINT TO MANUFACTURES FILE BUFFER 
76 033654 012737 177376 001414 MOV #-258. ,RMW t2 + 256. WOR s (e S$ COMP) 
ad 053662 000415 a BR 53$ [GO READ MFG Pie 
79 033664 022737 104734 001416 CMP MUSRFIL,RMBAO ;WAS THE USER FILE READ 2? 
ai 035672 001416 BEQ 4$ “YES = OMPLET 
37 000012 001420 MOVG = #10.,RMDAO SREAD THE USER FILE LAST TRACK, SECTOR = 10. 






1127 
a ER 3 O1g737 104734 001416 MOV usaf IL RMBAO POINT y USERS FILE BUFFER 
12737 010000 316 BIT FORMAT 


wo 


Sess 
SOooooooooeoeoo 


rs 


MINAS 
WDOONOUSWN—O 
EEELELELESE 
BZEPRELLAS 


RS 

See 
Se 
on 


Fun 


RORSFORORS 
oooo 
¥ 


NOuw 


330 034064 


32 034072 
33 034076 


335 034104 
36 034110 
337 


cna 


800137 


7 001446 


001420 
001414 
000400 
000002 
000402 


034500 


103742 


034132 
104750 


034132 
105746 


034500 


Qolais 


001412 


034510 
034510 


034510 


53$: MOV 
JMP 
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43-768 
3$ 





sRELOAD THE RETRY COUNT FOR THIS SECTOR 
3GO READ THE USER FILE 


ise! MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER 


55$: MOV 


RO,-(SP) 
RO, 


DENB 
BurFER«nO) PUTBUF (RO) 


At RO 
(SP)+,RO 


:PUSH RO ON STACK 
RO IS REGISTER INDEX 


a RO 
DONE 3 


33POP STACK INTO RO 


ee nad ae GRaTEEe GRTTE EE OE tm tae Oe One encien Fhe 


iVERIFY THAT THE it sects IS NOT IN THE MFG BAD SECTOR 
N THE USERS BAD SECTOR 


NOT IN 


56$ 


57$: 


58$: SUB 


BR 
59$: MOV 


FILE, 


FILE AND NOT IN THE SSF BAD SECTOR FILE. 
ASSIGN A NEW SECTOR IF THE SECTOR IS IN ANY OF THE FILES. 


{RRRAAAEAREERAAERREERREERERERRREERAERRERRERERERAEERERRRERERERREEE 


RO,-(SP) 


2 eames 
ae RO 


#256., 
#81T1, “ANCS10 


ore ot 
RO 


sLOAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS 


33PUSH RO ON STACK 
Hi H R1 ON STACK 


R2 ON STACK 
LOAD eho ti A ae 


TRACK, 
TAND SECTOR ADOR IN ASSIGNED STORAGE 
:R2 = NUMBER OF See 
7RO = WORD C 
MAKE NUPBER POSIT 


IVE 
iR1 = NUMBER OF WORDS PER SECTOR 
iI 1 THIS A HEADER AND DATA COMMAND ?? 


S CHANGE WORDS PER SECTOR 
:1S THERE A FULL SECTOR ?? 


1S RO" ZERO ?? 
‘YES !! 


sYES ?3 
INCREMENT FOR PARTIAL SECTOR 


SUBTRACT ONE SECTOR FROM WORD COUNT 
ZINCREMENT SECTOR COUNT 


sSAVE SECTOR COUNT 


;LOAD Swan: AND SEARCH THE MFG, USER AND THE MAPPED SSF BAD 
SECTOR FILES FOR THE ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT 
ZSECTORS IF THE SECTOR COUNT IS MORE THAN ONE. 


MOV 


JSR 
MOV 


JSR 
MOV 


#MF GF IL+14,78$ 
PC,60$ 
#USRF IL+14,78$ 


PC,60$ 
#SSFIL+4,78$ 


3THE STARTING ADDRESS OF MFG FILE 
3TO BASE. ADDRESS STORAGE. 
360 SEARCH FILE 
LOAD STARTING ADDRESS OF USR FILE 
;TO BASE ADDRESS STORAGE. 
360 SEARCH FILE 

3LOAD STARTING ADDRESS OF MAPPED SSF 
3FILE TO BASE ADDRESS STORAGE. 


SEQ 0151 


"won 


CZRNE 


SECT 
034116 


1 034186 


WANN 
Bee Seale 
Soooo0ooo 
SRReRee 
MUNMINMORS 


WEEN ERROR 


oh 
Sooooooecoeo 
BERR EER EE 


Ww 
OAL 


S338 


WAY 
RUSS 


005037 
08 
ae 


013737 


001514 


034507 


034506 


177777 


000003 
000002 


001514 


001444 
001520 


001520 


001521 


001516 


60S: 


63$: 


CLR 


MOV 
MOV 
MOV 
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CTOR MODULE 


SSF ENB 


PC,60$ 
71$ 


ASNDC, ais 
tere $ 


J 12 


sASSUME ‘SSF* BIT IS NOT TO BE WRITTEN 
1ST_HEAD 


IN THE 





WORD. 
SEARCH SKIP SECTOR MAPPED FILE 
[DONE WITH ALL FILE SEARCHES !! 


sLOAD COMPARING or ees ADDRESS 
LOAD C ING T 


OMP SECTOR ADDRESS 
[LOAD NUMBER OF SECTORS 


TO CONFIRM 


:SETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING 
SCYLINDER, TRACK AND SECTOR ADDRESS 


61$: MOV 
62$: CMP 
BEQ 
CMP 
BNE 


FILE ENTRY EQUALS ete ron 


78$,R0 
#-1, (RO) 


76$, (RO) 
63$ 


[THE COMPARING TRACK, AND SECT 


CMP 
BR 


77$+1,3(RO) 
63$ 
77$,2(RO) 
64$ 

63$ 
#-1,SSFENB 


C icimais 
62$ 


3LOAD 


THE BASE ADDRESS IN, RO 


is gt HS TERMINATOR ? 
31S THIS CYLINDER IN BAD TABLE ? 
BR IF NO 


EAD 


:NO, ADJUST CYLINDER POINTER IN BAD FILE 
SAND CONTINUE SEAR 


SEE IF THE NEXT ENTRY EQUALS 
IS _ TRACK IN BAD TABLE ? 
NO 
—_ IN BAD TABLE ? 


F 
F SECTOR IS LESS THAN TABLE ENTRY, ELSE 
ree ae woke. TO BE WRITTEN IN THE 


zTHE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE. 


65$: CMPB 
66$: 


;THE COMPARING SECTOR IS NOT IN THE BAD SECTOR F 
ZNUMBER OF SECTORS TO COMPARE AND SEARCH THE NEX 


ASNDA 
#SSEI ,RMOFO 
#31. ,ASNDA 
60$ 


66$ 
#30. ,ASNDA 
60$ 


ASNDA+1 
LSTRK+1 ,ASNDA+1 
60$ 


ASNDA 
ASNDC 

#560. ,ASNDC 
0s 

(SP)+ 

71$ 


TSECTOR OK ? 
YES !! 


: SECTOR OK ?? 


jADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER. 


3 INCREMENT SECTOR 
i1S SSEI SET ? 


*CLEAR SECTOR AND ADVANCE TRACK 
Z TRACK OK ? 
“YES ! 

“TRACK AND SECTOR 


7 CLEAR 
3 INCREMENT shone 
zCVLING DER OK ? 


RESTORE | eae AND 
GET OUT ! 


IL 
T 


ES 
SE 


° pecacrent THE 
CTOR IF THE NUMBER 


SEQ 0152 
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BAD SECTOR MODULE 
95 ils NOT ZERO. 
96 0 3 673: 
97 0 005337 034502 DEC 75$ :DECREMENT NUMBER OF SECTORS TO COMPARE 
98 001456 BEQ 73$ ‘DONE IF ZERO 
400 034340 105237 034506 INCB 78 y INCREMENT THE COMPARING SECTOR 
401 034244 032737 001000 001444 BIT #SSEI,RMOFO 71S SSEI SET 
40¢ 034352 001405 BEQ 68$ “NO !! 
403 034354 122737 000037 034506 CMPBs«a#'31..,77$ :SECTOR OK ? 
404 034362 103032 BHIS 70$ YES ! 
405 034364 000404 BR 69$ 
406 034 120737 000036 034506 68$: CMPB 4#30.,77$ sSECTOR OK 2? 
407 034374 103025 BHIS 70$ YES ! 
408 034376 105037 034506 69$:  CLRB 77$ SCLEAR SECTOR 
409 034402 1052 7 034507 INCB = 77$#1 : INCREMENT | TRACK 
410 034406 123737 001335 034507 CMPB  —sC LSTTRK+1,77$+1 TRACK OK ? 
411 034414 103015 BHIS 70S SYES !! 
412 034416 005037 034506 CLR 77$ SCLEAR SECTOR TRACK 
413 034422 005237 034504 INC 76$ : INCREMENT CYLINDER 
414 034426 022737 001060 034504 CMP #560. ,76$ 3CYLINDER OK ? 
415 034434 103005 BHIS YES ! 
416 034436 013737 034504 001446 MOV 76$,RMDCO SLOAD_ ty LINDER 
417 034444 005726 TST (SP5+ “RESTORE STACK AND 
418 034446 07 BR 72$ “GET OUT 
420 034450 000641 70$: BR 61$ :SEARCH NEXT SECTOR 
42 “ASSIGN THE SECTOR AND RETURN TO USER 
423 034452 71$: 
424 034452 013737 001516 001446 MOV ASNDC ,RMDCO ;LOAD CYLINDER 
425 034460 013737 001520 001420 MOV ASNDA, RMDAO *LOAD TRACK AND SECTOR 
426 034466 72$: 
0 012602 MOV (SP)+,R2 :POP STACK INTO R2 
074 1478 012601 MOV (SP)+.R1 POP STACK INTO R1 
— 034472 012600 MOV (SP)+-RO POP STACK INTO RO 
428 034474 000240 73$: NOP 
429 034476 000207 RTS PC 
43) sTHE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE 
433 034500 000000 74$: .WORD 0 ;RETRY COUNT/ NUMBER OF SECTORS REQUIRED 
434 034502 000000 75$: <WORD 0 [NUMBER OF SECTORS TO COMPARE 
435 034504 000000 76$:  .WORD 0 SCOMPARING CYLINDER 
436 034506 000000 77$: “WORD 0 :COMPARING TRACK AND SECTOR 
437 034510 000000 78$: “WORD 0 *BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED 
438 034512 000000 79$: WORD 0 [CONTAINS RMER2 
440 : THIS ,ROUTINE SEARCHES THE SKIP SECTOR FILE FOR ANY BAD SECTORS 
441 SWHICH OCCUR ON THE FE CYLINDERS. THE BAD SECTORS ARE THEN MAPPED 
44g ‘INTO A ‘SSFIL' TABLE TO BE USED BY THE "BADSCT' ROUTINE. 
444 034514 GETSSF: 
034514 010046 MOV RO,-(SP) ::PUSH RO ON STAC 
034516 010146 MOV R1. (SP) PUSH R1 ON STACK 
445 934520 912700 102722 MOV #BUFTWO,R *RO = POINTER TO BUFFER 
446 034524 012701 10574 MOV Aa bee th ‘R1 = POINTER TO SKIP SECTOR TABLE 


uw 
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BAD SECTOR MODULE 
447 g O35 530 9120 MOV (RO)+, (R1)+ zSAVE HEADER WORD O(CYL ADDRESS) 
120 i MOV (RO)+,(R1)¢ SSAVE HEADER WORD 1(TRK/SEC ADDRESS) 
Pct 034534 012721 177777 1$: MOV #=1,(R1)+ sINITIALIZE ‘SSFIL TABLE 
451 034540 022701 106036 CMP #SSFIL+60. .R1 :DONE ? 
be 034544 001373 BNE :BR IF NO 
454 034546 012701 105746 MOV #SSFIL+4,R1 :SETUP TO MAP SSFIL TABLE 
455 034552 062700 000026 ADD #22. ,RO *GET OVER S/N(2), CREATE DATE, REV DATE. REV#, 
496 FORMAT TY YPE, UNUS UNUSED ED WORDS(3), ENTRY# AND 
458 034556 021027 001057 2$: CMP (RO) #559. 31S CYLINDER IN wre PRREA ? 
459 034562 103410 BLO 4$. 
460 034564 101004 BHI 3$ tYES. "ON CYLINDER 560. 
461 TYES, WHEN ON CYLINDER 559. DO NOT LOG 
SANY BAD SECTORS THAT OCCUR ON THE SKIP 
46 * SECTOR TRAEK(OD OR ALTERNATE DEC144 TRACK(1) 
464 034566 126027 000003 000001 CMPBs«-3(RO) #1 ‘1S IT ON TRACK 0 OR 1 ? 
465 034574 003403 BLE SYES !! 
466 034576 011021 3$: MOV (RO), (R1)+ ‘LOG THIS CYLINDER AND 
467 016021 000002 MOV 2(ROS, (R1)+ STRACK/SECTOR IN ‘SSFIL* TABLE. 
469 034604 022020 4$: CMP (RO)+, (RO)+ ADJUST | BUFFER TO NEXT CYLINDER ENTRY 
470 034606 020127 106036 CMP R1,ASSFIL+60. ANY E ENTRIES AVAILABLE IN TABLE ? 
471 034612 103003 BHIS 5$° NO, ExT 
472 034614 020027 105736 CMP RO, ABUF TWO+1548. | AONE WITH ALL 3 SECTORS ? 
47 034620 103756 BLO 2$ :NO, DO NEXT ENTRY 
475 034622 012737 177777 104732 5$: MOV #~1,MFGFIL#516. ;RESTORE TERMINATOR TO MPGFIL 
476 034630 000240 NOP 
477 034632 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
012600 MOV (SP)+_RO [:POP STACK INTO RO 
478 034636 000207 RTS PC 
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BUFFER GENERATOR SUBROUTINE 


1 .SBTT!. BUFFER GENERATOR SUBROUTINE 
¢ sTHIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS. THE 
4 “BUFFER STARTS AT RMBA AND IS RMWC WORDS L THE BUFFER 
5 :CON TAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS 
6 FROM THE DATA PATTERN TABLE BEGINNING AT ADDRESS $TMPO. 
7 ADER INFORMATION FOR THE GurFER'Y IS EXTRACTED FROM RMDC, 
8 ik AND R4OF. 
10 :RO = ADDRESS OF DATA BUFFER 
11 [R1 = LENGTH OF DATA BUFFER 
12 iB = ADDRESS OF DATA PATTERN 
1 *R3 = LENGTH OF DATA PATTERN 
4 [R4 = SECTOR COUNT 
16 sCALL: 
17 (1) «JSR PC, GENBUF 
18 3(2) 2? RETURN HERE 
20 034640 GENBUF 
034640 01004 OV RO,-(SP) ::PUSH RO ON STACK 
034642 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
034644 010246 V R2,-(SP) + PUSH R2 ON STACK 
034646 010346 MOV R3,~(SP) 32PUSH ON Ly 
034650 010446 MOV R4,~-(SP) t:PUSH R4 
21 034652 013700 MOV 0,RO :LOAD DATA BUFFER ADDRESS 
22 034656 013701 001414 MOV RMWCO,R1 [LOAD WORD COUN 
23 034662 013737 001446 035102 MOV RMDCO,7$ [LOAD STARTING CYLINDER ADDRESS 
24 034670 013737 001420 035104 MOV RMDAO,8$ [LOAD STARTING TRACK,SECTOR ADDRESS 
26 034676 032737 000002 001412 1S: BIT #B1T1,RMCS1O WRITE HEADER & DATA?? 
27 034704 001451 BEQ NO! ! 
28 034706 013710 035102 MOV 78.(RO) :WRITE HEADER WORD #1 
29 034712 052710 140000 BIS E“(RO) ;SET BAD SECTOR FLAGS FOR GOOD SECTOR 
30 034716 012702 . 000035 MOV 8 Ro +R2 = MAXIMUM SECTOR ADDRESS (29.) 
32 034722 032737 010000 001444 BIT #EMT16,RMOFO 18 BIT FORMAT?? 
33 034730 001410 BEQ “YES ! 
34 034732 052710 010000 BIS #FMT16, (RO) [SET ié FORMAT BIT IN HEADER 
33 034736 005202 INC R2 *CHANGE MAXIMUM SECTOR ADDRESS (30.) 
37 034740 032737 001000 001444 BIT #SSE1,RMOFO zI1S SSEI SET TO ACCESS ALL SECTORS ? 
38 034746 001401 BEQ 2$ ‘NO !! 
39 034750 005202 INC R2 *CHANGE MAXIMUM SECTOR ADDRESS (31.) 
41 034752 005201 2$: INC R1 i INCREMENT WORD COUNT 
4@ 034754 001443 BEQ 6$ TEXIT IF DONE 
44 034756 005720 TST (RO)+ :MOVE RO TO HEADER WORD #2 
45 034760 013720 035104 MOV 8$, (RO)+ [WRITE HEADER WORD #2 
034764 005201 “INC R1 S INCREMENT WORL COUNT 
47 034766 001436 BEG 6$ SEXIT IF D 
48 034770 012708 035104 MOV #8$,R3 SADVANCE SECTOR ADDRESS 
49 034774 105213 INCB R 
50 034776 120213 CMPB —s._ R2,, (R3) ZSECTOR OVERFLOW ?? 
51 035 103013 BHIS =NO !! 
52 035002 105013 CLRB =. (R3) [YES = CLEAR SECTOR ADDRESS 
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BUFFER GENERATOR SUBROUTINE 
53 035004 10526 00000 INCB 1(R3) sADVANCE TRACK ADDRESS 
ee 035010 1 3783 001 : 000001 CMPB TRK+1,1(R3)  ;TRACK OVERFLOW ?? 
5 0 2656 103004 BHIS zNO !! 
56 0350 192003 69008) CLRB 1(R3) zYES = CLEAR TRACK ADDRESS 
57 035024 1936 0351 ‘ INCB 7$ sADVANCE CYLINDER ADDRESS 
58 9325 4 04 00040 3$: MOV #256. ,R4 st SECTOR DATA COUNT 
59 9350 1 A 001174 4$: MOV STMPO,R 3LOAD PATTERN ADDRESS 
60 035040 44 703 001176 MOV STMP1,R LOAD PATTERN COUNT 
61 035044 jeged 5$ MOV (R2)+,(RO)+ sWRITE DATA PATTERN 
66 035046 005201 INC R1 s INCREMENT WORD COUNT AND 
63 035050 001405 BEQ 6$ sEXIT IF DONE 
64 035052 005304 DEC R4 sDECREMENT SECTOR COUNT 
65 035054 00171 BEQ 1$ 3START NEXT SECTOR IF 0 
66 035056 90530 DEC R3 3;DECREMENT PATTERN COUNT 
’ 67 035060 00176 BEQ 4$ RESTART PATT I 

68 035062 000770 BR 5$ CONTINUE DATA PATTERN 
69 035064 6$: 

035064 012604 MOV (SP)+,R4 33POP STACK INTO R4 

035066 012603 MOV (SP)+,R3 33POP STACK INTO R3 

035070 012602 (SP)+,R2 33POP STACK INTO R2 

035072 012601 MOV (SP)+,R1 33POP STACK INTO R1 

35074 012600 MOV (SP)+,RO 3zPOP STACK INTO RO 

70 035076 000240 NOP 
a 035100 000207 RTS PC 
73 035102 000000 7$: - WORD sCYLINDER ADDRESS STORAGE 


74 035104 000000 8$: - WORD TRACK, SECTOR ADDRESS STORAGE 
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COMPARE BUFFER SUBROUTINE 


NOUSWN “OV ONOUSWN— 


oS = 


iaS] 

&- 

So 

WW 
UMVIM 
ed ed ed ed ed ed ed 
SYVSSNEN 
MON ONO! 


™ 

N 

So 
WWW 


41 035216 012702 
$$ 035222 010203 


ah 

45 035224 020301 
46 035226 001403 
47 035230 006302 
48 035232 005203 


49 035234 000773 
29 035236 012703 


52 
53 035242 030237 


035446 


004000 
100000 
000100 
010000 


0014 418 


000001 


000013 


001404 


001370 
001352 
001352 
001370 


035446 


-SBTTL COMPARE BUFFER SUBROUTINE 


B 13 


3THIS SUBROUTINE COMPARES THe enren FR OF 4 oe AND BUFT 


SASSUMING THAT BUFONE i, 
SAND BUFTWO IS THE BUFFER 


" MOV RO,-(SP) 


DETERMINE IF DATA SHOULD BE Comes Tee 
BIT ECI,RMOF I SECC CORRECTION ALLOWED ?? 


NO 
iUAS THERE A DAiA CHECK ?? 
sf ERROR CORRECTION HARD SET ? 


:18 Th This 16 BIT FORMAT 2? 


zCORRECT DATA USING ECC INFORMATION 
MOV 2RO she 


RMECTI,R1 


MOV 
BIS #B1T15,14$ 


BN 

BIT #DCK ,RMER1I 

Ay #ECH,RMER1I 

BIT #FMT16,RMOF I 
9$ 


~ S$CALL: 
:()} JSR 
; "WORD READ BUFFER ADDRESS 
7(3) BR 2? 
(4) OP 
7(5) ERROR 
3(6) 22? 
CMPBUF 


TO WHICH DATA WAS READ. 
[COMPARISON ARE REPORTED TO THE USER VIA THE USER'S ERROR CALL. 


FFER FROM WHICH DATA WAS 


PC, CMPBUF 
«WORD WRITE BUFFER ADDRESS 
RETURN HERE IF A ~ as 


RETURN HERE IF ERR 


ERROR DEFINED BY SUBROUTINE 


33PUSH R3 STACK 
ELEAR CORRECTION FLAG 


ECC POSITI 
Ser CORRECTION FLAG 


;MOVE RO TO WORD BOUNDARY OF ERROR BURST 


21S BIT POSITION > 1 WORD 
CMB TRACT 1 WORDS 


WORTH 
ZADVANCE BUFFER ADDRESS 1 WORD 
ef oo POINTER 


= BIT NUMBER 


SRS SAME AS R1 ?? 
‘Yes 


3 SHIFT ‘BIT POINTER 
ZINCREMENT BIT NUMBER 


= LENGTH GF ERROR BURST 


i$: CMP #16.,R1 
BHIS 2$ 
SUB #16..R1 
TST (RO)+ 
BR { 
2s: MOV #1,R 
MOV R2.R 
“MOVE R2 TO STARTING BIT OF ERROR BURST 
5$: CMP R3,R1 
BEQ 
ASL R2 
INC R3 
BR bt} 
4$: MOV #11. ,R3 
- CORRECT THE ERROR BURST 
§$; BIT R2,RMEC21 


31S THIS BIT SET IN ECC PATTERN ?? 


WRITTEN 
ERRORS IN BUFFER 


STARTING _— ADDRESS 


SEQ 0157 


ano 


C 13 


98 035446 000000 14$: «WORD sECC CORRECTION FLAG 
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COMPARE BUFFER SUBROUT! 
54 9 5246 001405 BEQ 7$ ;NO = DO NOT CORRECT THIS BIT 
55 035250 030210 BIT Re. (RO) 31S THE BIT PRESENTLY SET ?? 
56 035252 001402 BEQ 
57 035254 040210 BIC R2, (RO) <RESET THE BIT 
58 035256 000401 BR 
59 035 69 950210 6$: BIS R2, (RO) :SET THE BIT 
60 035 006 0¢ 7$: ASL R2 SSHIFT TO NEXT BIT 
61 035264 00100 BNE 8$ 
6¢ 035266 912702 000001 MOV #1,R2 sCONTINUE WITH FIRST BIT OF NEXT WORD 
63 035 00 £20 TST (RO)+ 
64 035274 00530 8$: DEC R3 sEND OF BURST ?? 
63 035276 001261 BNE 5$ =NO !! 
67 “COMPARE WRITE BUFFER TO READ BUFFER 
68 035300 017600 000010 $s: MOV a10(SP) RO :RO = WRITE BUFFER 
035304 062766 000002 000010 ADD MOVE SP TO READ ADDRESS 
70 035312 017601 00001 MOV oeOlSpe RI cRT S READ BUF ER 
035316 062765 000002 000010 . ADD . #2,10(SP) *MOVE SP TO RETURN ADDRESS 
72 035324 013702 001340 MOV RMWCI,R2 ‘R2 = NUMBER OF WORDS TRANSFER 
73 035330 163702 001414 SUB RMWCO.R2 
74 035334 022021 10$: . CMP (RO)+, (R1)+ sCOMPARE DATA WORDS 
75 035336 001003 - BNE 11$ SEXIT IF QUAL 
76 035340 005302 DEC R2 [DECREMENT WORD COUNT 
77 035342 001374 BNE 10$ [CONTINUE IF NOT DONE 
78 035344 33 BR 13$ [DONE COMPARE = NO ERROR 
80 :DATA COMPARE FAILED 
81 035346 014037 001140 11$: | MOV =(RO),$GDDAT | ;STORE GOOD DATA FOR TYPEOUT 
82 035352 014137 001142 MOV -(R1).$BDDAT | :STORE BAD DATA FOR TYPEOUT 
83 035356 010037 001134 MOV ,SGDA [STORE ADDRESS OF GOOD DATA 
84 035362 010137 001136 MOV *S$BDA SSTORE ADDRESS OF BAD DATA 
85 035366 010237 001174 MOV Re. $1 0, SSTORE WORD COUNT OF ERROR 
86 035372 062766 000004 000010 ADD O(SP “MOVE SP TO USER'S ERROR CALL 
87 035400 112776 000336 000010 MOVB a3S6. SSO%sP) SWRITE ERROR NUMBER IN CALL 
89 3 CHANGE ERROR NUMBER RAF EC ECC CORRECTION FAILED 
90 035406 032737 100000 035446 BIT SECC CORRECTION USED 7? 
91 035414 001403 BEQ 
92 035416 112776 000163 000010 MOVB #163 a10(SP) tECC * CORRECTION FAILED 
93 035424 162766 000002 000010 12$: SUB ,10(SP) ‘MOVE SP TO RETURN IF ERROR 
94 035432 000240 NOP 
95 035434 13$: 
035434 012603 MOV (SP)+,R3 ::POP STACK INTO R3 
035436 012602 MOV (SP)+.R2 *:POP STACK INTO R2 
035440 012001 MOV (SP)+-,R1 33POP STACK INTO RI 
035442 012600 (SP)+-RO STACK INTO RO 
96 035444 000207 RTS PC ‘RETURN TO USER | 
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GET STATUS SUBROUTI 


1 -SBTTL GET STATUS SUBROUTINE 


5 ;THIS SUBROUTINE SETS UP THE "GET INDEX TABLE’ AND THE "GET 

4 BUFFER’ FOR READING ALL SUBSYSTEM REGISTERS VIA Mem GET SUBROUTINE 
; ZAND THEN RETURNS TO THE USER. 

7 TCALL: JSR PC,GETSTS 

8 ; 22? RETURN HERE 

10 035450 GETSTS: 

035450 010046 MOV RO,=(SP) ::PUSH RO ON STACK 

11 055452 010146 MOV R1,°<SP) 33PUSH R1 ON STACK 

1e 039494 010246 MOV 2°=( H R2 ON STACK 

13 035456 012700 001526 MOV #GETINX,RO ‘RO = ADDRESS OF INDEX TABLE 
14 035462 012701 001406 MOV +2,R1  :R1 = ADDRESS OF GET BUFFER 

15 035466 012702 000046 MOV #RMECO R2 $R2 = REGISTER INDE 

16 035472 110220 1$: MOVB  R2, (ROS+ TWRITE REGISTER INDEX IN TABLE 
17 035474 005041 CLR -(R1) =CLEAR CORRESPONDING LOCATION 
18 035476 162702 000002 2$: SUB #2,R2 *DECREMENT TO NEXT INDEX 

19 035502 100405 BMI 3$ [BRANCH OUT IF DONE 

20 035504 022702 000022 CMP #RMDB ,R2 [DONT WRITE RMDB INDEX 

21 035510 001370 BNE 1$ 
22 035512 005041 CLR -(R1) 

23 035514 000770 BR 2$ 

24 035516 112720 000200 33: MOVB #200, (RO)+ :WRITE TERMINATOR 

25 035522 012602 MOV +,R2 +;POP STACK INTO R2 

26 0535524 012601 MOV (sp)e" *R1 +:POP STACK INTO R1 

27 035526 012600 MOV (SP) +,RO ::POP STACK INTO RO 

28 035530 000240 

9 035 207 PC 
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GET SUBROUT INE 


-SBTTL GET SUBROUTINE 


3"GET_INDEX TABLE’’ AND STORES THEIR VALUES IN THE CORRESPONDING 
3LOCATION ei THE ‘GET REGISTER BUFFER’. FOR E AN 

TRY OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE 10 

MBA" AND STORE ITS CONTENTS AT THE LOCATION IN 

STHE BUFFER ASSIGNED TO THAT REGISTER. 1 THe 
:REGISTERS | TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX 
: TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200) 
WHICH SHOULD FOLLOW THE LAST ENTRY. 


SUBROUT 


INE CALL: 
341) “GET INDEX TABLE’ HAS BEEN LOADED WITH REGISTER INDEX 
; VALUES AND TERM sane ED WITH A CONTROL BYT 
3 (2) T INPUT BUFFER’’ IS AVAILABLE FOR USE. (NOTE T 
: UNUSED LOCATIONS, I.E.,ENTRIES IN BUFFER CORRESPONDING 
(3) HA REGISTERS NOT READ, ARE NOT CHANGED.) 


RETURN HERE IF NO ERROR FOUND 
NOP RETURN HERE IF ANY ERROR FOUND 
ERROR SUB DEFINES ERROR NUMBER 


72? 


Ww NW POPINPOPONNONONID 2 2 OO 


RO = REGISTER BASE ADDRESS 
R1 = REGISTER ADDRESS 
R2 = BUFFER BASE ADDRESS 
“R3 = BUFFER 
“RG = POINTER TO REGISTER INDEX 
035534 000240 GET: NOP 
033936 062716 ADD #4, (SP) ICLEAR ERROR NUMBER IN USER'S 
035542 105076 000000 CLRB 3s a SP) TERROR CALL 
035546 162716 000004 SUB #4, (SP) 
035552 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
035554 010146 MOV R1,-(SP) +:PUSH R1 ON STACK 
035556 010246 MOV R2,-(SP) 7:PUSH R2 ON STACK 
035560 010346 MOV RS 7 (SP) 3 PUSH R3 ON ST 
035562 010446 MOV SP) SPUSH R4 ON STACK 
035564 013746 000004 MOV Braver =(SP) _:PUSH ERRVEC ON STA 
035570 013746 000006 MOV ERRVEC+2, step) + :PUSH Ravers? ON STACK 
36 035574 013700 001276 MOV 
37 035600 012702 001336 MOV-  &#GETBUF ,R2 
38 035604 012704 001526 MOV AGETINX.R4 
39 035610 012737 035716 000004 MOV #3$ ERRVEC sSETUP FOR TIMEOUT 
40 035616 012737 000300 900006 MOV #PR6, ERRVEC +2 : 
41 035624 016037 000010 001174 1$: MOV aMceo TRG). $TMPO ;GET "NED" STATUS 
4¢ 035632 016037 900000 001176 MOV RMCS1(RO).$TMP1 :GET "DVA'’ STATUS 
43 035640 032737 004 1176 BIT #DVA, STMP1 3DEVICE AVAILABLE ?? 
44 035646 00100 BNE 2s “YES! ! 
45 035650 9627 000004 000016 ADD SWRITE ERROR NUMBER IN USER'S 
46 035656 11 776 000112 000016 MOVB Wtia si6XSP) SERROR CALL 
47 035664 00042 BR 
48 035666 105714 2s: TSTB = (RG) :DONE?? 
49 03 5670 100433 BMI 6$ YES! ! 
50 035672 111401 MOVB =. (R4),R1 *R1 = REGISTER ADDRESS 
51 035674 042701 177700 BIC #°CIDXMSK.R1 CLEAR ANY SIGN EXTENSION 


an 
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ae 
z 
ee 


5 0 RO.R1 
53 0 MO (R4)+,R3 
54 035704 703 177700 BIC #*CIDXMSK,R3 
55 0 3710 20 ADD R2,R 
56 035712 01111 MOV (Ri), (R3) 
2 035714 764 BR 2$ 
59 035716 022626 : CMP SP)+, (SP)+ 
60 03972 06 3b 000004 000016 ADD #4, 16(SP) 
61 035726 112776 000007 000016 MOVB «#7. 16 (SP) 
6¢ 0357 162766 000002 000016 4$: UB 2° 16(SP) 
& 9 5742 105714 5$: TSTB ss (RG) 
64 035744 100405 I 6$ 
65 03574 003003 CLR R3 
66 035750 11240 MOVB = (R4) +, R3 
67 035752 960203 ADD R2 
68 035754 00501 CLR (R3) 
69 035756 000771 5$ 
70 035760 6$: 
035760 012637 000006 MOV (SP) +, ERRVEC+2 
035764 012637 000004 MOV SP) +, ERRVEC 
035770 012604 MOV (SP) +, 
035772 012603 MOV (SP)+.R3 
035774 012602 MOV (SP)+.R2 
35776 012601 MOV (SP)+,R1 
012600 MOV (SP)+,RO 
RTS PC 


3R3_= STORAGE ADDRESS FOR REGISTER 


sCLEAR ANY SIGN EXT 
sREAD REGISTER 
sRESTORE STACK 
sWRITE ERROR NUMBER 
SUSER*S ERROR CALL 
sDONE CLEARING?? 
“YES!! 


[CLEAR REMAINING ST 
[LOCATIONS 


33POP STACK INTO RO 
RETURN 


* 
o 


ENSION 


IN 


ORAGE 


SEQ 0161 


“an 


6 13 


CZRNEAO RMBO FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 21 SEQ 0162 
PUT SUBROUTINE 
1 .SBTTL PUT SUBROUTINE 
3 THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE 
4 PUT INDEX ‘WITH THE CONTENTS OF THE CORRESPONDING 
e *LOCATION IN THE "PUT REGISTER BUFFER’. 
6 SREGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST 
7 “BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD 
8 [FOLLOW THE LAST ENTRY. 
10 S SUBROUTINE CALL: 
ie 7(1) “PUT _INDEX TABLE’ HAS BEEN LOADED WITH INDEX VALUES 
1 : OF REGISTERS TO BE WRITTEN. 
14 (2) ‘PUT REGISTER BUFFER’ CONTAINS CONTENTS OF EACH 
15 : REGISTER TO BE WRITTEN. 
16 7(3) JSR PC PUT 
17 : 223 RETURN HERE IF NO ERROR FOUND 
18 : NOP RETURN HERE iF ANY ERROR FOUND 
19 ; ERROR SUB DEFINES ERROR NUMBER 
20 5 22? 
21 3 
38 *RO = REGISTER BASE ADDRESS 
2 [R1 = REGISTER ADDRESS 
24 :R2 = BUFFER BASE ADDRESS 
35 [R3 = BUFFER 
36 *R4 = POINTER TO REGISTER INDEX 
28 036004 000240 PUT NOP 
29 036006 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
036010 010146 MOV R1.=(SP) PUSH R1 ON STACK 
036012 010246 MOV R2,-(SP) +:PUSH R2 ON STACK 
036014 010346 MOV R3,-(SP) +: PUSH A 
036016 010446 MOV R4.-(SP) _ SEPUSH R4 ON STACK 
036020 013746 000004 MOV ERAVEC,-(SP)” ::PUSH ERRVEC ON STACK 
036024 013746 000006 MOV ERRVEC#2,~(SP) ::PUSH ERRVEC+2 ON STACK 
30 036030 013700 001276 MOV SER 
1 036034 012702 001412 MOV TBUF ,R2 
036040 012704 00155 MOV #PUTINX.R4 
036044 or 737 036164 000004 MOV #4$, ERRVEC sSETUP FOR TIMEOUT 
036052 012737 900500 MOV #PR6, ERRVEC +2 
35 036060 016037 00001 ith 1$: MOV RMCS2(RO),STMPO ;GET 'NED'* STATUS 
9 016037 000000 001176 MOV RMCS1(RO).$TMP1 :GET "DVA"’ STATUS 
7 036074 032737 004000 001176 BIT #DVA,STMP1 ‘DEVICE AVAILABLE?? 
936102 001007 BNE 2$ YES! ! 
9 036104 062766 000004 000016 ADD #4,16(SP) SWRITE ERROR NUMBER IN 
40 03611 11 000112 000016 move #1i2,ai6(sP) SUSER'S ERROR CALL 
4¢ 0361 2 105714 2s: TSTB  —s- (R4) :DONE?? 
43 036124 100431 BMI YES! ! 
44 036126 111401 MOVB = (R4) ,R1 *R1_ = REGISTER ADDRESS 
45 036130 04 701 177700 BIC #°CIDXMSK,R1 CLEAR ANY SIGN EXTENSION 
“i$ 36136 1114 MOVB = (R4),R3 :R3 = STORAGE ADDRESS 
48 036140 04270 177700 BIC #°CIDXMSK,R3 CLEAR ANY SIGN EXTENSION 
49 36146 0 ADD Rk 
50 0 166 011311 MOV (R$), (R1) :WRITE REGISTER 
51 036150 122714 000032 CMPB —s- #RMOF , (R4) *WAS RMOF JUST LOADED ? 





“ao 


SEQ 0163 
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PUT SUBROUTI 


52 036154 901 gor BNE 3$ :BR IF NO 
3 0361 11311 MOV (R3), (R1) iWRITE RAOE oAGAINe 10, ENSURE THAT 16 BIT MODE 
55 036160 105724 3$: TSTB = (R4) + SADJUST REGISTER POINTER 
sR Uist um og 
58 036164 022626 4$ CMP (SP) +, (SP)+ zADJUST STACK 
39 166 06¢ 000004 900016 ADD #4, 16(SP) ITE ERROR NUMBER IN 
60 036174 112776 000007 16 MOVB «#7. 16 (SP) TUSER'S ERROR CALL 
61 036202 162766 000002 000016 5$: SUB #2.16(SP) 
63 0 19 6$: 
03621 1 637 000006 MOV (SP)+ ,ERRVEC#2 :POP STACK INTO ERRVEC+2 
036214 012637 000004 MOV (SP)+,ERRVEC  ;;POP ST. Tat INTO ERRVEC 
036220 012.04 MOV (SP)+, RG [:POP STACK INTO R4 
036222 012603 MOV (SP)+,R3 +: POP STACK INTO R3 
036224 012602 MOV SP)+,R2 ::POP STACK INTO R2 
0 012601 MOV (SP)+,R1 ::POP STACK INTO R1 
036 012600 MOV (SP)+,RO ::POP STACK INTO RO 
64 036232 000207 RTS PC SRETURN 










SIZE CLOCK SUBR 
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-SBTTL SIZE CLOCK SUBROUTINE 


SIZCLK: 


1$: 


23: 
3$: 


(Sp)t, (sp) 
#28 sERRVEC CLKADR 
#104, CLKVCT 
(SP)+, (SP)+ 
#2 


»4(8P) 


(SP)+, ERRVEC+2 
le ong 


3 PUSH ERRVEC ON STACK 


: PUSH 

:SET UP For Bus T 
ZLOAD ADDRESSES 
;TEST FOR kw11~ 


YES = KWil-L I 
:RESTOR 


E SP 
3SET UP FOR BUS T 


[LOAD ADDRESSES 


Ae ay ON STACK 
IMEOU 
FOR KW1T-L 
L PRESENT 
S PRESENT 


IMEOUT 
FOR KW11-P CLOCK 


TES FOR KW11-P PRESENT 


= KWi1-P I 
REST 


7 :POP sttk INT 
sRETURN TO USER 


S PRESENT 


ORE SP 
;MOVE RETURN TO ERROR 
STACK sare ERRVEC+2 


O ERRV 


SEQ 0164 


ecient acececalidascnea dinamo: 


wn 
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-soITL TIMEOUT SUBROUTINE 


zTHIS SUBROUTINE WAITS FOR RDY = 1 AND GO = 0 OR FOR A TIMEOUT 
ZGREATER THAN APPROX. 500 MSEC AND THEN RETURNS. 


DOOONOULSUN— 


ina 
ae 


NERS 


ooooocecooe 


NPN 2 3 
4 UNVSsanannwvso 
EERE WWMM —— 
4 ANN 
= 


w 
&* 


PC, TIMOUT 
RETURN HERE 

RO, ~($P) ; PUSH RO ON STACK 

R2,=(SP) H R2 ON STACK 

ERAVEC,- (SP) + PUSH ERRVEC ON STA 

ERRVE ($2 PUSH Baavecs2 ON STACK 
#55 ERR mec “ ; SETUP rok b BUS FIMEOUT - 04 TRAP 
SBASE. RO :RO=BASE ADDRES 
#30. .R2 tR2= R OF ( <YCLES 

PC, STIMER SSTART CLOCK Tlrun 


RMCS1(RO),-(SP) ;GET STATUS 
#°C<RDY!GO>, (SP)° 
ARDY, (SP)+ zRDYet. ,60=0?? 


$ 
#8117, @CLKADR 3 TIMER DONE ?? 
2$ ZNO! ! 


D 20MS FOR A 50 H 


Ooo 
mos 
UNO 


ooo 


1 
1 
1 
7 





R2 [DEC NUMBER OF CYCLES 
1$ CONTINUE IF NOT hoa? 
4$ :"RDY'' DID NOT SET 'GO'’ DID NOT RESET 
WITHIN 300 MSEC AFSER THE COMMAND WAS ISSUED. 

(SP)+, (SP)+ ZADJU ST 
#4,12¢SP) MOVE SP 10 USER’ $ CALL 
#7.a12(SP) tURITE ERROR NUMBER 
#2.12(SP) 
(SP) + -ERRVEC#2 POP STACK INTO ERRVEC+2 
(SP)+,ERRVEC — ; ;POP STACK INTO ERRVEC 
(SP)+-R2 ::POP STACK INTO R 
(SP)+-RO ::POP STACK INTO R 
PC ‘RETURN TO USER 

:THIS ROUTINE IS USED START THE KW11-L OR THE KW11-P CLOCK. THE CLOCK 

iS ARTED TO RUN IN LAG MODE. A CLOCK WIL! BE 16.667MS FOR A 60 HZ CPU 
R1, {SP}, ::PUSH R1 ON STACK 
CLKADR tR1= =CLOCK ADDRESS 
iy Witein Ku11-P CLOCK?? 


1,2(R :SET COUNTER 
*it aera TO, (R1) :START COUNTER 
(SP}+,R1 “POP STACK INTO R1 
C ‘RETURN 
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OUT INE 


3a 
rf 
3S 


USWA SO OBVNOULSWN =O OONOUSWN— << 


-SBTTL PRIMARY ERROR CHECK SUBROUTINE 


3 THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND | 
ZTHAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED. THE 
: FOLLOWING CHECKS ARE MADE: 


ORRECT UNIT IS SELECTED, 1.€., THE UNIT SELECT BITS OF RMCS2 
?(BITS 0-2) EQUAL THE UNIT BEING tesieD: 


1 ; .SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET 
SAND NED" (BIT 12 OF RMCS 43) IS RESET: 
1 ; LAST COMMAND WAS COMPLETED, I.€., THE MASSBUS CONTROLLER IS 
1 SREADY (BIT? OF RMCS1) AND THE GO GIT 18 RESET (BIT 0 OF RMCS1) OR THE 
1 ;DRIVE READY BIT (BIT 7 OF RMDS) IS SET. 
i : mo PARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS, 
ee = 2 

1 .NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS, 
| 71.£., PAR = 0. OR, PAR = DPE = 1 
2 3 
3 ;THE SUBROUTINE ASSUMES THAT: 
2 STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER, 
2 SIN PARTICULAR, RMCS1, RMCS2 AND RMDS HAVE BEEN STORED IN THEIR 
36 “CORRESPONDING LOCATIONS OF THE 'GET’’ BUFFER. 
28 ; .(SUNIT) CONTAINS THE DRIVE NUMBER 
30 *THE SUBROUTINE IS CALLED AS FOLLOWS: 
32 (1) «JSR PC,PRIERR 
33 : BR 223 RETURN HERE IF NO ERROR 
34 : NOP RETURN HERE TO REPORT AN ERROR 
35 : ERROR ERROR NUMBER DEFINED BY SUB 
3 : JSR PC,a(SP)+ 60 BACK TO SUB FOR MORE ERROR CHECKS 
3 : 22? RETURN HERE IF NO MORE ERRORS 
59 036552 PRIERR: 
41 SCLEAR USER'S ERROR CALL 
42 036552 062716 000004 ADD #4, (SP) sMOVE (SP) TO ERROR CALL 
43 036556 105076 000000 CLRB sa SP) [CLEAR E R 

4 036562 162716 000004 SUB #4, (SP) *MOVE (SP) TO NO ERROR RETURN 


zREPORT -. ERROR ahes THE WRONG UNIT IS SELECTED 


47 036566 013737 001346 001142 1,$BDDAT ;CORRECT UNIT SELECTED?? 

48 036574 042737 177770 001142 BIC #°CUNTASK. 

49 036602 013737 001234 001140 MOV SUNIT SGDBAT 6000 DATA FOR TYPEOUT 

50 036610 042737 177770 001140 BIC PCUNTASK, $GD 

51 036616 123737 001140 001142 CMPB —s- S$GDDAT,, SSODAT T COMPARE EXPECTED AND RECEIVED 
26 ‘DRIVE NUMBERS 

53 036624 001415 BEQ 1$ — 

54 036626 062716 000004 ADD #4, (SP) 

55 036632 112776 000001 000000 MOVB ss #1. a( SP) ZERROR 1 

56 036640 162716 000002 SUB #2. (SP) ‘hover SP TO RETURN FOR ERROR 
57 036644 004736 JSR PC.a(SP)+ ‘REPORT WRONG UNIT SELECTED 





5 ee ale oes: ae Wea ae 
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MARY ERROR CHECK SUBROUTINE St 
58 0 6 162716 000010 SUB #10, (SP) ZRESTORE (SP) 
59 036652 000 9 NOP 
60 036654 000137 037374 JMP 10$ ;SKIP OTHER CHECKS 
61 036660 1$: 
§¢ :REPORT AN ERROR IF THE DEVICE IS NOT AVAILABLE OR IF 
64 + THE DEVICE IS NONEXIST 
65 036660 032737 004000 001336 BIT #DVA re DEVICE AVAILABLE?? 
66 036666 001045 BNE 
67 036670 013737 001336 001140 MOV RMCS11,$GDDAT eee crep STATUS 
68 036676 052737 004000 001140 BIS #DVA, $GDDAT 
69 036704 013737 001336 001142 MOV RMCS11,$BDDAT ;RECEIVED STATUS 
70 036712 062716 000004 ADD #4, (SPS 
71 036716 112776 000002 000000 MOVB sé, a(SP) - ZERROR #2 
72 036724 032737 010000 001346 BIT #NED RMCS21 3WAS NED SET?? 
73 036732 001414 BEQ 2$ NO! ! 
74 036734 013737 001346 001140 MOV RMCS21,$GDDAT EXPECTED STATUS 
75 036742 013737 001346 001142 MOV RMCS21.$BDDAT :RECEIVED STATUS 
76 036750 042737 010000 001140 BIC #NED, SGDDAT 
77 036756 112776 000003 000000 MOVB #3, a SP) sYES = CHANGE ERROR NUMBER 
78 036764 162716 000002 2$: SUB #2. (SP) :MOVE SP TO RETURN FOR ERROR 
79 036770 004736 JSR PC asp) S REPORT DEVICE NOT AVAILABLE 
80 036772 162716 000010 SUB #10, ¢ SRESTORE (SP 
81 036776 00024 NOP 
82 037000 000575 BR 10$ :SKIP OTHER CHECKS 
8 037002 3$: 
:REPORT AN ERROR IF MASSBUS CONTROLLER IS NOT READY 
002 032737 000200 001336 BIT #RDY ,RMCS11 : CONTROL LLER READY?? 
87 037010 001030 BNE 
88 037012 013737 001336 001140 MOV RMCS11,$GDDAT ‘eee cre STATUS 
89 037020 052737 000200 001140 BIS WRDY,SGDDA 
90 037026 042737 160001 001140 BIC #SC! TRE 'MCPE!GO,$GDDA 
91 037034 013737 001336 001142 MOV RMCS11,$BDDAT SO EE IVED STATUS 
92 037042 062716 000004 ADD #4, (SPS 
93 037046 112776 000004 000000 MOVB = #4. a( SP) ZERROR #4 
94 037054 162716 000002 SUB #2. (SP) “MOVE SP TO RETURN FOR ERROR 
95 037060 004736 JSR PC a(SP)+ SREPORT CONTROLLER NOT READY 
96 037062 162716 000010 SUB ss #10, (SP) RESTORE (SP) 
97 037065 000240 NOP 
98 037070 000541 BR 10$ :SKIP OTHER CHECKS 
3 037072 4$: 
101 :REPORT AN ERROR IF GO IS NOT ZERO AND DRY, IS NOT ONE 
102 037072 032737 000001 001336 BIT #G0,RMCS11 360 RESET? 
103 037100 001431 BEQ 
104 037102 032737 000200 001350 BIT WDRY,.RMDSI DRIVE READY?? 
105 037110 901025 BNE 
106 037112 013737 001336 001140 MOV RMCS11,$GDDAT SEXPECTED STATUS 
107 037120 042737 160001 001140 BIC - #SC!TRE'MCPE'GO,$GD 
108 037126 013737 001336 001142 MOV RMCS11, $BDDAT OPE IVED STATUS 
109 037134 062716 000004 ADD #4, (SPS 
110 037140 112776 000005 000000 MOVB -#5..a(SP) ZERROR #5 
111 037146 162716 000002 SUB #2. (SP) “MOVE SP TO RETURN FOR ERROR . 
Me 037152 004736 JSR PC ga(sP)+ SREPORT DRIVE NOT READY 
113 037154 162716 000010 SUB #10, ¢ SRESTORE (SP) 
114 037160 000240 NOP 
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10$ 


;REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD 
sPARITY yee MASSBUS C 


ONTROL BUS 
ae tae sPARITY ERROR ?? 


RMCS11,$GDDAT EXPECTED STATUS 
#SC! TRE !MCPE!GO,$GDDAT 
RCS 11, SBDDAT sRECEIVED STATUS 


a MOVE STACK TO USER'S ERROR 
#13,a(SP) TERROR #1 

» (SP) [MOVE SP TO RETURN FOR ERROR 
PC.a(SP)+ [REPORT ERROR VIA USER 
#10, (SP) SRESTORE STACK 
10$ 


AN ERROR IF THE RM80 DETECTED A CONTROL BUS PARITY ERROR 
BIT #PAR,RMER1I 2WAS ? 


THERE A PARITY ERROR?? 


#DPE ,RMER2I WAS IT THE CONTROL BUS?? 
#PAR,RMER10 [DID TEST SET PAR ?? 
9$ “NO! ! 


RO,~(SP) 33PUSH RO ON STACK 
#PUTINX RO 3RO POINTS TO INDEX TABLE 
rent. ies 3SEARCH TABLE FOR RMER1 
(SP)+,RO 33POP STACK_INTO RO 

1$ 3PAR WAS_SET BY TEST 
nuns fy TABLE?? 


rr O!! 
(SP)+,RO +:POP STACK INTO RO 
RMERII .SGDDAT sEXPECTED STATUS 
RMERII,$BDDAT ;RECEIVED STATUS 


#4, (SPS [MOVE SP TO USER'S ERROR CALL 
#50,a(SP) *WRITE THE ERROR NUMBER 

#2, ( [MOVE SP TO RETURN FOR ERROR 
PC. a(SP)+ SREPORT THE ERROR 

#10, (SP) [MOVE SP TO NO ERROR RETURN 
#10, (SP) :RETURN TO ERROR 


ec sRETURN TO NO ERROR 
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SECONDARY ERROR CHECK SUBROUTINE cc 


CZRNEAO RM8O FCTNL 

ARY ERROR CHE 

1 .SBTTL SECONDARY ERROR CHECK SUBROUTINE 

i sTHE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS 
4 *SUCH AS UNEXPECTED ERRORS AND UNEX PECTED REGISTER CONTENTS. THESE 
a *ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY 

6 SASSOCIATED WITH THE OPERATION BEING PERFORMED. 

7 [WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR 
8 : TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS 

93 270 THE TEST ROUTINE WHICH MAKES THE ERROR tt AFTER THE TEST ROUTINE 
10 § THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR 
11 “OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE 
2 ;RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL. 

14 tCALL: JSR PC, SECERR 

15 ; BR 22? RETURN HERE IF NO ERROR 

16 3 RETURN HERE TO REPORT AN ERROR 

17 3 ERROR ERROR NUMBER DEFINED BY SUB 

18 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
19 ; 22? RETURN HERE IF NO MORE ERRORS 

21 :NOTE: THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE 
$8 + INPUT REGISTER BUFFER. 
$¢ 037404 SECERR: 

PYG :STORE FUNCTION CODE AND CLEAR USER' S ERROR NUMBER 

27 037404 013737 001412 043544 MOV RMCS10,81 °ST ORE gh UNCTION CODE 

28 037412 042737 177701 043544 BIC WOCKFOIFIIFQIF3!F4>,8 

29 037420 062716 000004 ADD #4,(SP) MOV: . oop) TO ERROR CALL 

30 037424 105076 000000 CLRB = (SP) [CLEAR ERROR NUMBER 

3 037430 162716 000004 SUB #4, (SP) [MOVE (SP) TO NO ERROR RETURN 

33 ;REPORT ERROR IF DRIVE IS NOT READY, 1. Ee. IF DRY = 0 

34 037434 032737 000200 001350 #DRY,RMDS1 DRI VE READY? 

35 037442 001024 BAe 1$ :YES! 

36 037444 013737 001350 001142 MOV RMDSI,$BDDAT BAD BATA FOR TYPEOUT 

37 (37452 042737 177577 001142 BIC #*°CDRY, SBDDAT 

38 037460 012737 000200 001140 MOV #DRY ,SGDDAT :G00D DATA FOR TYPEOUT 

39 037466 062716 000004 ADD #4, (SP) 
40 037478 112776 000010 000000 move #10,a(SP) ZERROR NUMBER 

41 037500 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 

42 037504 004736 JSR PC.a(SP)+ sREPORT NOT R 

43 037506 162716 090010 SUB #16, (SP) sRESTORE (SP) TO ERROR N 
44 037512 000240 NOP 
46 *REPORT ERROR IF GO BIT IS NOT RESET 

47 937514 032737 000001 001336 i$: BIT #G0,RMCS11 :60 BIT RESET?? 

49 0375 4 13087 001336 00114 MOV RMCS11,$BDDAT ‘BAD BATA FOR TYPEOUT 

50 0375 3737 177776 00114 BIC #°CG0, $BDDAT 

51 03754 5037 1140 CLR SGDDAT :G00D DATA FOR TYPEOUT 

3 37544 06 16 ADD #4, (SP) 

53 037550 112776 11 000000 MOVB «#11, a( SP) ZERROR NUMBER 

54 0 7356 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 

55 037562 004736 JSR PC a(sP)+ SREPORT DEVICE NOT AVAILABLE 

36 0 7364 1 718 000010 SUB #10, ( SRESTORE (SP) 

57 0375 24 NOP 








] 
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SECONDARY ERROR CHECK SUBROUTI 


58 
59 - REPORT ERROR IF FUNCTION CODE READ FROM DEVICE IS NOT CORRECT 
60 037572 91 737 001336 001142 2S: I SBDDAT 31S FUNCTION CODE CORRECT?? 
61 037 130 177701 00114 4 #°C76,$BDDA 
62 037 013737 043544 00114 MOV 81$, SéDbAT sEXPECTED FUNCTION CODE 
63 037614 023737 001142 001140 CMP SBDDAT ,$GDDAT 
64 037622 001413 BEQ 3$ sYES!! 
65 057624 062716 000004 ADD #4, (SP) 
66 037630 112776 000012 000000 MOVB #12, a(SP) ERROR NUMBER 
67 037636 162716 000002 SUB #2, (SP) ;MOVE $ P TO RETURN FOR ERROR 
68 037642 004736 JSR PC a(sP)+ “REPORT WRONG FUNCTION CODE 
69 037644 162716 000010 SUB #10,(S SRESTORE (SP) 
70 037650 000240 NOP 
71 037652 3$: 
72 [REPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER 
3 TERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND 
SOTHER ERRORS ARE SET aes. 
75 037652 005037 001140 CLR $GDDAT sEXPECT ERR" = 0 
76 037656 005737 001352 TST RMER11 S RMER1 = 02? 
037662 001003 BNE 4 
78 037664 005737 001400 TST RMER21 71S "RMERZ = 02? 
79 037670 001403 BEQ 5$ :¥ ' 
80 037672 052737 040000 001140 4$: BIS WERR, $GDDAT ES. SOULD BE SET 
81 037700 012737 001350 001142 5$: MOV RMDS1,$BDDAT 
037706 042737 137777 001142 BIC #°CERR, SBDDAT 
83 037714 023737 001140 001142 CMP SGDDAT.SBDDAT 1S _‘ERR'’ OK?? 
84 037722 001412 BEQ 6$ YES!! 
85 037724 062716 000004 ADD #4, (SP) {MOVE SP TO USER'S ERROR 
037730 112776 000047 000000 MOVB #47, a(SP) ‘WRITE ERROR NUMBER 
87 037736 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
88 037742 004736 JSR PC.a(SP)+ SREPORT INVALID COMP ERROR 
89 037744 162716 000010 SUB #10, (SP) 
91 REPORT AN ERROR IF ‘TRE’ IS SET AND NONE OF THE BITS WHICH SET 
92 TRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH 
93 <SET TRE IS’ SET eS | 
94 037750 005037 001140 é$: CLR SGDDAT ZEXPECT TRE’ = 0 
95 037754 013746 001346 MOV RMCS21,-(SP) WAS DLT, WCE, UPE, NED, NEM 
96 037760 042726 000377 BIC #377, (SP>+ iP GE MXF OR MDPE SET 
97 037764 001010 BNE 
98 037766 032737 040000 001350 BIT #ERR,RMDSI iMAS. |EXCEPTION RECEIVED?? 
99 037774 001407 BEQ NO! ! 
100 037776 022737 000030 043544 CMP #SEARCH,81$ zWAS | [DATA TRANSFERRED?? 
101 040004 103003 BHIS 
102 040006 052737 040000 001140 73: BIS ATRE ,SGDDAT a ea SHOULD BE SET 
103 040014 013737 001336 901142 8$: MOV RMCS1I1,$BDDAT :BAD DATA FOR TYPEOUT 
104 040022 042737 137777 001142 BIC #°CTRE.SBDDAT an? 
105 040030 023737 001140 001142 CMP SGDDAT. SBDDAT i1S “TRE"* OK?? 
106 040036 001413 BEQ 9$ 
107 040040 062716 000004 ADD #4, (SP) NONE SP TO USER'S ERROR CALL 
108 040044 118076 000014 000000 MOVB #14, a(SP) [WRITE ERR 
109 040052 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
110 040056 004736 JSR PC 5a(SP)+ *REPORT TRE ERROR 
111 040060 162716 000010 SUB #10,(S SRESTORE (SP) 
Ie 040064 000240 NOP 
113 040066 9$: 
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115 FERRARA AAARRRARREIREREEREAEEERERERERERERERREERERRRRRERRRRERERRES 

116 :USING THE FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS: 

117 : .STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF 

118 "STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND ECH 

119 “NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER 

120 *STATUS CONDITIONS, £.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF 

121 [WRITE LOCK IS ON AND THE COMMAND IS A WRITE. 

138 :GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE 

124 040066 010046 MOV RO,-(SP) 3sPUSH RO ON STACK 

125 040070 013700 043544 MOV 81$,R0 :GET FUNCTION CODE 

186 040074 016037 064704 043536 MOV FNCDTB(RO),78$ :STORE ENTRY 

127 040102 012600 MOV (SP)+,RO 7;POP STACK INTO RO 

129 :REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF 

130 SATA IS NOT SET AND SHOULD BE SET. 

131 040104 013737 043536 001140 MOV 78$ ,$GDDAT 3GET EXPECTED ATA STATUS 

13 040112 032737 043000 001350 BIT #ERR,RMDSi SIS COMPOSITE ERROR SET ?? 

133 040120 001403 BEQ 10$ =NO !! 

134 040128 052737 100000 001140 BIS #ATA, SGDDAT TEXPECT AN ATTENTION 

135 040130 042737 077777 001140 10$: BIC W°CATA,SGDDAT :SiRIP DONT CARES 

136 040136 013737 001350 001142 MOV RMDSI,$BDDAT ;GCT RECEIVED ATA 

137 040144 042737 077777 001142 BIC #°CATA,SBDDAT ;STRIP DONT CARES 

138 040152 023737 001140 001142 CMP SGDDAT.SBDDAT 1S ATA OK ?? 

139 040160 001413 BEQ 11$ YES !! 

140 040162 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 

141 040166 112776 000006 000000 MOVB #6.a(SP) : ERROR # IN CAL 

142 040174 162716 000002 SUB #2. (SP : TO ERROR RETURN 

143 040200 004736 JSR PC.a(SP)+ SREPORT ERROR 

144 040202 162716 000010 SUB #10, (SP) “RESTORE SP 

145 040206 000240 NOP 

146 040210 118: 

148 sREPORT ERROR IF ILF IS INCORRECT, I.E.. IF ILF DOES NOT COMPARE 

149 ‘WITH FUNCTION CODE TABLE : 

150 040210 013737 043536 001140 MOV $GDDAT :GEi EXPECTED ILF 

151 040216 042737 177776 001140 BIC #°CILF,$GDDAT CLEAR ALL OTHER BITS 

152 040224 013737 001352 001142 V RMERII.$SBDDAT :GET RECEIVED ILF 

153 040232 042737 177776 001142 BIC #°CILF.$BDDAT CLEAR ALL OTHER BITS 

154 040240 023737 001140 001142 CMP SGDDAT.$BDDAT :IS ILF OK ?? 

155 040246 001412 BEQ 12$ TYES !! 

156 040250 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 

157 040254 112776 000254 000000 MO #254 .a(SP) : ERROR NUMBER IN CALL 

158 040262 162716 000002 SUB #2, (SP [MOVE SP TO ERROR RETURN 

159 040266 736 JSR PC .a(SP)+ SREPORT ERROR AND RETURN 

160 040270 #162716 900010 SUB #10, (SP) : SP TO NO ERROR 

161 040274 {005037 001140 12$: CLR SGDDAT SCLEAR EXPECTED STATUS 

163 :REPORT AN ERROR IF WCE IS SET AND SHOULD NOT BE SET 

164 040300 013746 043536 MOV 78$,-(SP) sGET WCE STATUS ENABLE 

165 040304 052716 137777 BIS #*CUCE, (SP) ; L OTHER BITS 

166 040310 013737 001346 001142 MOV RMCS21,$SBDDAT ;RECEIVED STATUS 

167 040316 042637 001142 BIC (SP)+,$BDDAT : WCE IF ENABLED 

168 040322 001412 BEQ 13$ SBRANCH IF WCE OK 

169 040524 062716 0 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 

170 0403 112776 000026 000000 MOVB #36 (SP) ‘WRITE ERROR NUMBE 

171 040336 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
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RNEAO P 
ONDARY HEC 
17 040342 004736 JSR PC, a(SP)+ ;REPORT ERROR 
173 040344 162716 000010 suB #10, (SP) SRESTORE ERROR 
17% 0350 13$: 
176 ;REPORT ERROR IF OPI STATUS IS SET AND SHOULD NOT BE SET 
17 940350 013746 043536 MOV 78$,-(SP) 3GET OPI] STATUS ENABLE 
178 060354 O5e716 157777 BIS #°COPI, (SP) [SET ALL OTHER BITS 
179 040360 0137 00135 001142 MOV RMERII,$BDDAT GET RECEIVED STATUS 
180 040 042637 00114 BIC (SP)+,$BDDAT  :CLEAR OPI IF ENABLED 
181 040372 001412 BEQ 14$ [BRANCH IF OPI OK 
18 040374 062716 000004 ADD #4, (SP) ‘MOVE SP TO USER'S ERROR CALL 
183 040400 112776 000164 000000 MOVB #164,a(SP) [WRITE ERROR NUMBER IN CALL 
184 040406 162716 000002 SUB #2, (SP) *MOVE SP TO ERROR RETURN 
185 040412 004736 JSR PC.a(SP)+ SREPORT ERROR 
186 040414 162716 000010 SUB #16, (SP) TRESTORE SP 
187 040420 14$: 
189 :REPORT ERROR IF IVC IS SET AND IS NOT ENABLED OR IF IVC !S 
190 *SET AND VV IS NOT RESET 
191 040420 913746 043536 MOV 78$,-(SP) :GET IVC STATUS ENABLE 
192 040424 032737 000100 001350 BIT #VV.RMDSI [IS VV SET 
193 040432 001402 BEQ 15$ "NO !! 
194 040434 042716 010000 BIC #IVC, (SP) *YES = IVC SHOULD BE 0 
195 040440 052716 167777 15$: BIS #*CIVC, (SP) [SET ALL OTHER BITS 
196 040444 013737 001400 001142 MOV RMER2I1.$BDDAT  :GET RECEIVED STATUS 
197 040452 042637 001142 BIC (SP)+,$BDDAT  :CLEAR IVC IF ENABLED 
198 040456 001412 BEQ 16$ SBRANCH IF IVC OK 
199 040460 062716 000004 ADD #4, (SP) ‘MOVE SP TO USERS ERROR CALL 
200 040464 112776 000165 000000 MOVB  #165,a(SP) [WRITE ERROR NUMBER IN CALL 
201 040472 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
02 040476 004736 JSR PC. a(SP)+ [REPORT ERROR 
203 040500 162716 000010 SUB #16, (SP) SRESTORE SP TO NO ERROR 
204 040504 16$: 
206 ;BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
207 : ALL WRITE ERRORS, 1.E., 
208 : RMER1 = WLE, WCF 
209 3 RMER2 = DPE 
210 : RMCS2 = UPE. 
211 TEACH OF THESE ERRORS IS CHECKED 7 SEE IF AN ERROR IS SET WHEN THE 
gi SWRITE ERROR ENABLE BIT IS RESET. 
214 :REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF 
313 “THE DRIVE IS NOT WRITE PROTECTED 
16 040504 012746 177777 MOV #-1,-(SP) SASSUME WRITE ERRORS ENABLED 
217 040510 032737 004000 043536 BIT MULE, 78S TARE WRITE ERRORS ENABLED ?? 
218 040516 001404 BEQ =NO !! 
319 040520 032737 004000 001350 BIT #WRL ,RMDSI 1S THE DRIVE WRITE PROTECTED ?? 
20 040526 001002 BNE 18$ Yes !! 
221 040530 O4e716 904000 17$: BIC #WLE, (SP) RESET WLE ENABLE 
322 040534 01 73 0135¢ 001142 18$: MOV RMERII,$BDDAT GET RECEIVED STATUS 
223 040542 042637 00114 BIC (SP)+,$BDDAT  :CLEAR WLE IF ENABLED 
224 040546 001412 BEQ BRANCH 
225 040550 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
226 040554 112776 000023 000000 MOVB #23,a(SP) *WRITE ERROR NUMBER IN CALL 
227 040562 162716 000002 UB #2,(S SMOVE SP TO ERROR RETUR 
228 040566 004736 JSR PC.a(SP)+ *REPORT ERROR AND RETURN 
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940570 162716 000010 SUB #10, (SP) sRESTORE SP TO NO ERROR 
% 0574 19$: 
3 ;REPORT ERROR IF WCF I$ SET AND WRITE ERRORS ARE NOT ENABLED 
3 040574 12746 177777 MOV #-1,-(SP) sASSUME WRITE ERRORS ENABLED 
: 0600 032737 004000 043536 BIT #WLE,78$ ARE WRITE ERRORS ENABLED ? 
35 040606 001002 BNE 20$ YES 
236 040610 04271 900049 BIC SOT SAaL LE WCF ERROR 
237 040614 013737 001 38 001142 208: MOV eMERiI® SADDAT 3GET RECEIVED STATUS 
238 040622 042637 00114 BIC (SP)+,$BDDAT RESET WCF IF ENABLED 
239 040626 001412 BEQ 218 BRANCH F OK 
240 040630 062716 000004 ADD (SP) *MOVE SP TO USERS ERROR CALL 
241 040634 112776 000025 000000 MOVB 438: a(SP) [WRITE ERROR NUMBER IN CALL 
242 040642 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
243 040646 004736 JSR PC a(sP)+ SREPORT E 
244 040650 162716 000010 SUB #10,(S SRESTORE SP TO NO ERROR 
43 040654 21$: 
247 sREPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
248 040654 012746 177777 MOV #-1,~(SP) ;ASSUME WRITE ERRORS ARE ENABLED 
249 040660 032737 004000 043536 BIT Pole, 78$ TARE WRITE ERRORS ENABLED 
250 040666 001002 BNE $ iVES ! 
251 040670 042716 000010 BIC #DPE, (SP) TRESET DPE ENABLE 
3¢ 040674 013737 001400 001142 228: MOV RMER21 , SBDDAT 3GET RECEIVED STATUS 
253 040702 042637 001142 BIC (SP)+,$BDDAT RESET DPE IF ENABLED 
254 040706 001412 BEQ $ [BRANCH IF DPE OK 
255 040710 062716 000004 ADD 4, (SP) [MOVE SP TO USERS ERROR CALL 
256 040714 112776 000040 000000 MOVB ty a(SP) [WRITE ERROR NUMBER IN CALL 
257 040722 162716 000002 SUB #2, (SP) *MOVE SP TO ERROR RETURN 
258 040726 004736 JSR PC a(sP)s [REPORT ERROR 
259 040730 162716 000010 SUB #10, (SP) *RESTORE SP TO NO ERROR 
360 040734 23S: 
262 ;REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED 
263 040734 012746 177777 MOV #~1,-(SP) ZA ASSUME WRITE ERRORS ARE ENABLED 
264 040740 032737 004000 043536 BIT WL, 78S TARE WRITE ERRORS ENABLED ? 
265 040746 001002 BNE 4$ tYES !! 
266 040750 042716 020000 BIC #UPE [DISABLE UPE ERROR 
267 040754 013737 001346 001142 24$: MOV muceol SADDAT SGET RECEIVED STATUS 
268 040762 042637 001142 BIC (SP)+,$BDDAT 3RESET UPE IF ENABLED 
269 040766 001412 BEQ 5$ CH IF UPE OK 
270 040770 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
271 040774 112776 000024 000000 MOVB #24, a(SP) *WRITE ERROR NUMBER IN CALL 
372 041002 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RET 
273 041006 004736 JSR PC a(sP)+ *REPORT ERROR AND RETURN 
274 041010 162716 000010 SUB #10,(S “MOVE SP TO NO ERROR 
373 041014 25S: 
336 :REPORT AN ERROR IF IAE IS SET AND IS NOT ENABLED 
278 041014 013746 043536 MOV 78$,-(SP) sGET IAE ENABLE 
279 041020 052716 175777 BIS pclae (SP) ‘SET ALL OTHER BITS 
280 041024 013737 001352 001142 MOV RMER11.$BDDAT :GET RECEIVED STATUS 
281 041032 042637 001142 BIC (SP)+, SBDDAT :CLEAR IAE IF ENABLED 
282 041036 001412 BEQ S BRANCH S 
283 041040 062716 000004 ADD *MOVE SP TO USERS ERROR CALL 
284 041044 112776 000166 000000 MOVB #186, otSP) ‘WRITE ERROR NUMBER 
285 041052 162716 000002 SUB (SP) ‘MOVE SP TO ERROR RETURN 
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86 041056 004736 JSR PC,a(SP)+ ;REPORT ERROR AND RETURN 
87 041 162716 000010 SUB #16, (SP) [MOVE SP TO NO ERROR 
88 041064 26S: 
296 :B1T 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
1 : ALL READ/WRITE ERRORS, I.E., 
29 $ RMCS1 = 
29 : RMCS2 = DLT,.NEM,MXF 
294 : RMDS = LBT 
295 : RMER1 = AOE 
296 sNOTE 
297 : LBT 1S NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED 
338 ~~ CYLINDER REGISTER IS WRITTEN 
300 saa AOE CANNOT BE SET IF LBT IS NOT ALSO SET 
30 : TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE 
304 
305 :REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
306 041064 012746 177777 MOV #~-1,-(SP) ZASSUME ERRORS ARE ENABLED 
307 041070 032737 001000 043536 BIT WADE , 78 SARE ERRORS ENABLED ?? 
308 041076 001002 BNE 27$ YES !! 
309 041100 042716 100000 BIC #DLT, (SP) [RESET DLT ENABLE 
310 041104 013737 001346 001142 27$: MOV RMCS21,$BDDAT :GET RECEIVED STATUS 
311 041112 042637 00114 BIC (SP)+,$BDDAT | :CLEAR DLT IF ENABLED 
312 041116 001412 BEO 8$ [BRANCH IF DLT IS OK 
313 041120 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
314 041124 112776 000032 000000 MOVB #32,a(SP) [WRITE ERROR NUMBER IN CALL 
315 041132 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
316 041136 004736 JSR PC a(SP)+ SREPORT ERROR AND RETURN 
317 041140 162716 000010 SUB #16, (SP) [MOVE SP TO NO ERROR 
318 041144 28S: 
320 :REPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
321 041144 012746 177777 MOV #~1,-(SP) sASSUME ERRORS ARE ENABLED 
322 041150 032737 001000 043536 BIT #AOE ,78$ TARE ERRORS ENABLED ?? 
323 041156 001002 BNE 29$ “YES !! 
324 041160 042716 004000 BIC #NEM, (SP) [DISABLE NEM 
395 041164 013737 001346 001142 29%: MOV RMCS21,$BDDAT  :GET RECEIVED STATUS 
326 041172 042637 001142 BIC (SP)+,$BDDAT | :CLEAR NEM IF ENABLED 
327 041176 001412 BEQ 30$ *BRANCH IF NEM IS OK 
328 041200 062716 ADD #4, (SP) *MOVE SP TO USERS ERROR CALL 
29 041204 112776 000167 000000 MOVB  4#167,a(SP) WRITE ERROR NUMBER IN CALL 
330 041212 162716 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
331 041216 004736 JSR PC.a(SP)+ [REPORT ERROR AND RETURN 
x 041220 162716 000010 SUB #10, (SP) [MOVE SP TO NO ERROR 
333 041224 30S: 
335 sREPORT ERROR IF MXF IS SET AND READ/WRITE ERRORS ARE NOT ENABLED 
36 041224 012746 177777 MOV #-1,-(SP) sASSUME ERRORS ARE ENABLED 
37 041230 032737 001000 043536 BIT #AOE ,78$ TARE DATA ERRORS ENABLED ?? 
38 041236 001002 BNE YES !! 
339 041240 042716 001000 BIC WMXF . (SP) *DISABLE MXF ERROR 
0 041244 013737 001346 001142 31$: MOV RMCS21,$BDDAT  :GET RECEIVED STATUS 
341 041292 042637 00114 BIC (SP)+,$BDDAT  :CLEAR MXF IF ENABLED 
2 041256 001412 BEQ 32$ *BRANCH IF MXF IS OK 
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1260 716 900004 ADD #4, (SP) sMOVE SP TO USERS ERROR CALL 
1 64 112776 3 000000 MOVB  #33,a(SP) [WRITE ERROR NUMBER IN CALL 
1272 162716 60000 SUB #2, (SP) “MOVE SP TO ERROR RETURN 
041276 004736 JSR PC.a(SP)+ *REPORT ERROR AND RETURN 
041 762716 000010 SUB #16, (SP) [MOVE SP TO NO ERROR 
8 041 328: 
50 sREPORT ERROR IF AOE IS SET AND DATA ERRORS ARE NOT ENABLED 
51 041304 012746 177777 MOV #=1, (SP) yASSUME DATA ERRORS ARE ENABLED 
38 041310 03273 043536 BIT WADE ,78$ TARE DATA ERRORS EANBLED ?? 
5 041316 001404 BEQ :NO !! 
54 04132 032737 002000 001350 BIT #LBT,.RMDSI [1S LBT ALSO SET ?? 
55 041 26 1002 BNE 4$ “YES !! 
356 0413 042716 001000 33$: BIC AOE, (SP) [DISABLE AOE 
357 041334 013737 001352 001142 34$: MOV RMERII,$BDDAT :GET RECEIVED STATUS 
358 041342 042637 001142 BIC (SP)+,$BDDAT  :CLEAR AOE IF ENABLED 
359 041346 001412 BEO $ BRANCH 1S OK 
360 041350 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
361 041354 112776 000020 000000 MOVB 4#20,a(SP) [WRITE ERROR NUMBER 
362 041362 162716 000002 SUB , [MOVE SP TO ERROR RETURN 
363 041366 736 JSR PC,a(SP)+ sREPORT ERROR AND RETURN 
364 041370 162716 000010 SUB #i0,(SP) [MOVE SP TO NO ERROR 
365 041374 35$: 
367 :BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR 
368 | THEADER ERRORS, 1.E., 
369 3 RMER1 = HCRC,HCE,FER 
370 ; RMER2 = BSE, SSE 
372 :RESET THE ENABLING BIT (HCE) IF HEADER COMPARE INHIBIT IS SET 
373 041374 032737 002000 001370 BIT #HC1,RMOF I zIS HCI SET 2? 
374 041402 001403 BEQ =NO !! 
375 041404 042737 000200 043536 BIC WHCE,78$ TYES = DISABLE ALL HEADER ERRORS 
376 041412 36$: 
378 :REPORT AN ERROR IF HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED 
379 041412 012746 177777 MOV #~1,-(SP) :ASSUME ERRORS D 
041416 032737 000200 043536 BIT #HCE,78$ TARE HEADER ERRORS ENABLED ?? 
381 041424 001002 BNE 37$ YES !! 
382 041426 042716 000400 BIC WHCRC, (SP) *DISABLE HCRC 
383 041432 013737 001352 001142 37$: MOV RMER1I{,$BDDAT :GET RECEIVED STATUS 
384 041440 042637 001142 BIC (SP)+,$BDDAT  :RESET HCRC IF ENABLE 
385 041444 001412 BEO 38$ BRANCH IF HCRC IS Cx 
386 041446 062716 000004 ADD #4, (SP) ‘MOVE SP TO USERS ERROR CALL 
387 041452 112776 000035 000000 MOVB #35, a( SP) “WRITE ERROR NUMBER IN CALL 
388 041460 162716 000002 SUB #2, (SP) “MOVE SP TO ERROR RETURN 
389 041464 004736 JSR PC a(SP)+ *REPORT ERROR AND RETURN 
390 041466 162716 000010 SUB #10, (SP) *MOVE SP TO NO ERROR 
331 041472 38$: 
395 :REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED 
394 041472 012746 177777 MOV #-1,-(SP) sASSUME ERRORS ENABLED 
395 041476 032737 000200 043536 BIT  - #HCe,78$ TARE ERRORS ENABLED ?? 
336 041504 001002 BNE YES !! 
3 041506 O4er16 000200 BIC WHCE, (SP) *DISABLE HCE 
98 041512 01 737 001352 001142 39$: MOV RMERII,$BDDAT GET RECEIVED STATUS 
399 041520 042637 00114 BIC (SP)+,$BDDAT  :CLEAR HCE IF ENABLED 
















SECONDARY ERROR 
400 041524 
401 04615 
40 15 
40 13? 
404 041544 
405 bo 1208 
406 04155 
407 
408 
409 041552 
410 041556 
411 041564 
zi6 041566 
413 041572 
414 041600 
415 041604 
416 041606 
417 041612 
418 041620 
419 041624 
420 07 1666 
421 0416 
re 
42 
424 041632 
425 041636 
426 041644 
427 041646 
428 041652 
429 041660 
430 041664 
431 041666 
432 041672 
433 041700 
434 041704 
435 041706 
436 041712 
437 
438 
439 
| 041712 
441 061714 
rr! 041720 
443 041726 
444 
£45 
446 
447 041730 
448 041736 
449 041740 
450 041746 
451 041750 
$26 041756 
45 
454 
455 041756 
456 041762 
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000010 
177777 
000200 
e434 
0013 § 
00114 
000004 
000037 
000002 
000010 
177777 
000200 
00000 
001400 
001142 
000004 
000354 
000 


002 
000010 


043544 
064704 


010000 
001000 
000200 


177777 
000200 


000000 


043536 


001142 


000000 


043536 


001142 


000000 


043536 


001370 
001370 
043536 


043536 


40$: 
;REPORT 


41$: 


42$: 
;REPORT 


43$: 


44$: 


sHCE IS USED AS THE ENABLING BIT FOR peTecrig SSE 
3FROM THE Sata Ons ae. TO CHECK 


:1F SKIP SECTOR ERROR arins (SSEI) IS SET OR FORMAT 16 (FMT) 


sRESET THE ENABLING BIT (HCE), hs or tt LEAVE ENABL ING BIT (HC 
BIT #FMT16,RMOF I FORMAT MODE ? 


45$: 
46$: 


JSR 
SUB 


H 14 


PC 5a(SP)+ 
#10,(5 


sBRANCH IF HCE IS OK 
3MOVE SP TO USERS ERROR CALL 
ER NUMBER _IN CAL 


SREPORT ERROR AND RETURN 
sMOVE SP TO NO ERROR 


— af gl Is SET AND pnt ERRORS ARE NOT ENABLED 


wack 78s. 
41$ 


#FER, (SP) 
RMER1I ,SBDDAT 
3) +, $B8DDAT 


4 
#4, (SP) 
ei” 


C.a(SP)+ 
ri. (3 


ASSUME FER IS ENABLED 
ZARE H HEADER ERRORS ENABLED ?? 


‘DISABLE FER 

3GET api they STATUS 

SRESET FER IF ENABLED 

BRANCH I OK 

3MOVE SP TO USERS ERROR CALL 
E ERROR NUMBER IN CALL 


RE 
SMOVE ip TO NO ERROR 


—" IF BSE IS SET AND HEADER ERRORS ARE NOT ENABLED 
#- SP ENABLED 


MOV 
MOV 
MOV 


BIT 
BEQ 
BIC 


1 ) 
WHCE, 78S 
43$ 


Pe 5a(SP>+ 
#10,(S 


81$,R0 
FNCBTB(ROD .788 
(SP)+,RO 


2520! ROE 
#HCE ,78$ 


sASSUME ERRORS 
ARE THEY ENABLED ?? 
sYES !! 


sDISABLE BSE 
GET RECEIVED STATUS 
. EAR BSE IF ENABLED 


CH_ IF BSE OK 
SMOVE SP TO USERS ERROR CALL 
sWRITE ERROR NUMBER 

;MOVE SP TO ERROR RETURN 
ZREPORT ERROR AND RETURN 
3MOVE SP TO NO ERROR 


THE ''SSE’’ BIT 
RO ON STACK 


i6ET F TION CODE 
3 STORE FUNCTION TABLE ENTRY 
33POP STACK INTO RO 


318 BIT 

3BR IF YE 

z1S SSEI SET ? 
:BR IF NO 


;DISABLE HEADER ERROR 


;REPORT — IF SSE IS SET AND HEADER ERROR IS NOT ENABLED 


BIT 


#=1,-(SP) 
mice ,78$ 








sASSUME ERRORS « eee 
31S HCE ENABLED 


I 
E 


Ss 
) 


CL 
SET. 





SO REESTABLISH ENTRY 


EAR, 
T 
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CK SUBROUTINE 


SECONDARY ERROR CHECK 
457 0617 90100 BNE 47$ sYES !! 
458 04177 1 90004 BIC #SSE, (SP) *DISABLE SSE 
459 041776 01 v3 1400 001142 47$: MOV RMER21,$BDDAT GET RECIEVED STATUS 
460 a30ts 042657 00114 BIC (SP)+,$BDDAT CL AR SSE IF NOT VALID FOR FUNCTION 
462 04 13 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
46 016 112776 000063 000000 MOVB #63,a(SP) SWRITE ERROR NUMBER 
464 042024 162716 000002 SUB #2, [MOVE SP TO ERROR RETURN 
465 942030 004736 JSR PC a(SP)+ SREPORT ERROR AND RETURN 
466 042032 162716 000010 SUB #6, (SP) *MOVE SP TO NO ERROR 
467 042036 48S: 
469 3BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA 
470 FIELD ERRORS, ae 
471 ; RMCS2 = MDP 
472 : RMER1 = DCK,ECH 
473 sNOTE: 
474 : ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND 
473 ; DCK IS SET. 
47 :REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED 
478 042036 012746 177777 MOV #-1,-(SP) ZAS ENABLED 
042042 032737 000100 042536 BIT #ECH,78$ zARE DATA FIELD ERRORS ENABLED ?? 
480 042050 001002 BNE 49$ YES !! 
481 042052 042716 900400 BIC #MDPE , (SP) [DISBALE MDPE 
482 042056 013737 001346 001142 49$: MOV RMCS21,$BDDAT :GET RECEIVED STATUS 
483 042 042637 001142 BIC (SP)+,$BDDAT | CLEAR MDPE IF ENABLED 
484 042070 001412 BEQ 50$ SBRANCH IF MDPE OK 
485 042072 062716 000004 ADD #4, (SP) [MOVE SP TO USERS ERROR CALL 
486 042076 112776 000027 000000 MOVB #27, a(SP) SWRITE ERROR NUMBER IN CALL 
487 042104 162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
488 042110 004736 JSR PC,a(SP)+ ZREPORT ERROR AND RET 
489 042112 162716 000010 SUB #10, (SP) [MOVE SP TO NO ERROR 
490 042116 50S: 
492 REPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED 
493 042116 012746 177777 MOV #-1,-(SP) sASSUME E 
494 042122 032737 000100 043536 BIT  #&CH,78$ TARE THEY ENABLED 2? 
495 042130 001002 BNE 51$ YES !! 
49% 042132 042716 100000 BIC #DCK, (SP) SDISABLE DCK 
497 042136 013737 001352 001142 51$: MOV RMERII,$BDDAT :GET RECEIVED STATUS 
498 042144 042637 001142 BIC (SP)+,$BDDAT  :CLEAR DCK IF ENABLED 
499 042150 001412 BEQ 52$ [BRANCH IF DCK IS OK 
500 042152 716 000004 ADD #4, (SP) *MOVE SP TO USERS ERROR CALL 
501 042156 112776 000030 000000 MOVB #30,a(SP) *WRITE ERROR NUMBER IN CALL 
502 042164 162716 000002 SUB #2, (SP) *MOVE SP TO ERROR RETURN 
503 042170 004736 JSR PC,a(SP)+ sREPORT ERROR AND RETURN 
504 042172 162716 000010 SUB #16, (SP) ‘MOVE SP TO NO ERROR 
305 042176 52$: 
507 :REPORT ERROR IF ECH IS SET AND, 
508 : DATA FIELD ERRORS ARE NOT ENABLED, OR 
509 : ECI IS SET, OR 
510 : DCK IS NOT SET. 
511 042176 012746 177777 MOV #-1,-(SP) ZASSUME ENABLED 
312 042202 032737 000100 043536 BIT #ech, 788 SARE ERRORS ENABLED ?? 
513 04 00141 53$ ‘NO !! 





an 


RNEAO RM80 FC 
CONDARY ERROR 
514 1 

515 o¢ g 
516 
517 04 
518 042232 
519 04 Sit 
520 042244 
2 1 pesse® 
§ 04225 
52 b35520 
524 042264 
525 042270 
526 042272 
527 042276 
3 
530 
531 
532 
533 042276 
534 042504 
535 042306 
536 
537 
538 042312 
539 042320 
540 042322 
541 042330 
542 042352 
543 042336 
544 042344 
545 042350 
546 042354 
547 042 
548 042362 
549 
550 
551 042364 
225 042372 
553 042400 
554 042404 
555 
556 042412 
557 042420 
558 042422 
559 
560 042430 
561 042436 
206 042440 
563 04244 
564 04245 
565 0424 
ss sate 
568 023093 
569 
570 
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TNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 25-9 
CHECK SUBROUTINE 
32737 004000 001370 BIT #EC1.RMOF I 31S ECI SET 2? 
1004 BNE 53$ sYES !! 
2737 100000. 001352 BIT #DCK,RMER1I SIS DCK ALSO SET ?? 
1008 ‘ BNE $ sYES !! 
Que 1g 0001 53$: BIC #ECH, (SP) ‘DISABLE ECH 
13737 001352 001142 54$: MOV RMERII,$BDDAT :GET RECEIVED STATUS 
042637 00114 BIC (SP)+,$BDDAT | :CLEAR ECH IF ENABLED 
001412 8E0 55$ SBRANCH IF ECH IS OK 
062716 900004 ADD #4, (SP) “MOVE SP TO USERS ERROR CALL 
112776 000031 000000 MOVB #31, a(SP) [WRITE ERROR NUMBER IN CALL 
162716 000002 SUB #2, (SP) [MOVE SP TO ERROR RETURN 
004736 JSR PC.a(SP)+ [REPORT ERROR AND RETURN 
162716 000010 = SUB #10, (SP) [MOVE SP TO NO ERROR 
FERRARA RAAAARAAAAARAREREREEAERARARERAREERRRREREEREERRERRREERERERE 
**PERFORM THE REMAINING ERROR CHECKS FOR DATA TRANSFER COMMANDS 
3  ; REAR ARAAAEAAAAAEREEREEAERERAEERAERARRAREEEEAEREERERERRAEREARERE 
022737 000030 043544 CMP #SEARCH,81$ :WAS DATA TRANSFERRED ? 
103402 BLO 56$ :BR IF YES 
000137 043510 JMP 75$ =NO = EXIT 
“REPORT ERROR IF RMWC NOT ZERO AND TRE IS ZERO 
013737 001340 001142 56S: MOV RSWCI .SBDDAT WORD COUNT ZERO?? 
032737 040000 001336 BIT #TRE,RMCS11 ‘TRANSFER ERROR DETECTED?? 
001015 BNE 57$ YES! ! 
062716 ADD #4, (SP) 
112776 000015 000000 mMOVB «#15, a( SP) ZERROR NUMBER 
005037 001140 CLR SGDDAT [GOOD DATA FOR TYPEOUT 
162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
004736 JSR PC a(SP)+ [REPORT WORD COUNT NOT ZERO 
162716 000010 SUB #16, (SP) SRESTORE (SP) 
000240 NOP 
-REPORT ERROR IF RMBA IS NOT CORRECT 
013737. 001340 001140 57$: Mov RMWCI,$GDDAT | ;GET WORD COUNT AT END OF TRANSFER AND 
163737 001414 001140 SUB RMWCO.$GDDAT § :SUBTRACT STARTING WORD COUNT. 
337 001140 ASL SGDDAT :* 
063737 001416 001140 ADD RMBAO,SGDDAT ADD STARTING BUS ADDRESS 
032737 000010 001346 BT #BAI,RMCS21 :WAS BUS ADDRESS INHIBIT (BAI) SET 2? 
013737 001416 001140 MOV RMBAO,SGDDAT § :ADDRESS SHOULD NOT HAVE CHANGED 
023737 001140 001342 58$: CMP SGDDAT ,RMBAI BUS , ADDRESS 0K?? 
013737 001342 001142 MOV RMBAI,SBDDAT :BAD DATA FOR TYPEOUT 
062716 000004 ADD (SP) 
112776 000016 000000 MOVB #16, a(SP) sERROR NUMBER 
162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
736 SR PC. a(SP)+ SREPORT UNEXPECTED ADDRESS 
162716 000010 SUB #106, (SP) SRESTORE (SP) 
000240 NOP 


;COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT 


abe 


RM8O FCT 


MINN 

o 
ons 
MLO 


a 
SELLE LEPPP 


aR 


REEE 


K 14 
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CHECK SUBROUTINE 


b13re6 
716 


023727 
103406 
005237 
162737 
000766 


5 


1340 
1414 


000460 
000002 


000002 


043540 
000037 
043540 


043536 
043546 


001140 
001370 
176777 


001000 


001412 


043540 
043542 


001444 


000040 


043542 
000037 


043542 


043546 


043540 


001142 
001142 


001444 


59$: 


608: 


- BGT 
CMP 


=(SP) 
RMWCI ,=(SP) 
RMWCO, (SP) 


#256. ,~(SP) 
#81T1,RMCS10 


#2, (SP) 
4(SP) 

(SP) ,2(SP) 
(SP)+,(SP)+ 


SEQ 0179 Ci 


NUMBER OF SECTORS TRANSFERRED 
3GET WORD COUNT AT END OF TRANSFER AND 
; SUBTRACT STARTING WORD COUNT. 


SSUME 256. WORDS PER orm 
EMEADER DATA COMMAND ? 


NO ! 
£ CHANGE TO 258. WORDS PER SECTOR 


oe ty id SECTOR COUNT 

i SUBTRA T ONE SECTOR'S WORTH 
3CON TINUE IF NOT DONE 
RESTORE STACK 


; COMPUTE gl A TRACK AND CYLINDER ADDRESS FROM 


NUMBER 


61$: 
62$: 


63$: CMP 


NOP 


co, 
RMDAO,79$ 
RMDAO, 
LSTRK,82$ 
82$ 
82$ 
#“CTADMSK ,79$ 


#“CSADMSK ,80$ 
(SP)+,80$ 
#SSEI ,RMOFO 
61$ 

80$ 432. 
63$ 

79$ 

#32. ,80$ 
80$ 431. 
63$ 

79$ 

#31. ,80$ 
61$ 

79$ ,82$ 

64$ 


78$ 
863-798 
63$ 


STORE ORIGINAL CYLINDER 
3STORE ORIGINAL TRACK 

ZSTORE ORIGINAL SECTOR 

STORE LAST TRACK, 

[GET TRACK ADDRESS TO LO BYTE AND 
ZINCREMENT TO GET TOTL # OF TRACKS. 


SAVE TRACK ADDRESS BITS AND 


3GET TRACK ADDRESS TO LO BYTE. 
ZSAVE SECTOR ADDRESS BITS 


sWAS SSEI SET ? 
3NO !! 


SECTOR OVEF_LOWED?? 
3NO!! 


INCREMENT TRACK 
ZADJUST SECTOR 


:SECTOR OVERFLOWED ? 
TINCREMENT TRACK 
ZADIU UST SECTOR 

:TRY AGAIN 

s TRACK OVERFLOWED?? 
INCREMENT CYLINDER 
ADJUST TRACK 


:TRY AGAIN 


zREPORT ERROR IF me IS SET AFTER TRACK SWITCHING OCCURED 


i$: 
MOV 
BIC 
BIT 
BEQ 


; THRU DATA_TRANSFER 
CLR 


S$GDDAT 
RMOF I ,SBDDAT 


#°CSSEI,$BDDAT 


#SSEI ,RMOFO 
66$ 


sSETUP EXPECTED SSEI = 0 
7GET RECIEVED DATA AND 
ZSAVE SSEI BIT FOR COMPARE. 


= SSEI SET BEFORE DATA TRANSFER ? 


L 14 
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SECONDARY ERROR CHECK SUBROUTINE 
628 04 8 123737 001421 001345 CMPB = RMDAO+1,RMDAI+1 ;DID TRACK SWITCH OCCUR ? 
629 04 1411 BEQ 3NO 
6 005737 001142 TST SBDDAT “I$ SSEI STILL SET ? 
631 82 ore 001430 BEQ 6 NO 
6 2 04 062716 000004 ADD #4, (SP) :POINT TO ERROR 
633 043004 112776 000225 000000 MOVB #205 .a(SP) :DEFINE ERROR NUMBER 
634 043012 000414 BR 
636 :REPORT ERROR IF “'SSEI'' 1S INCORRECT 
637 043014 012737 001000 001140 65$: #SSEI.SGDDAT_ —; SETUP_EXPECTED SSEI = 1 
638 043022 023737 001140 001142 66$: CHP S$GDDAT, $BDDAT 31S SSEI CORRECT ? 
639 043030 001413 BEQ 68$ 
640 043032 062716 000004 ADD #4, (SP) <POINT TO ERROR 
641 € 3036 112776 000226 000000 MOVB  #226,a(SP) [DEFINE ERROR NUMBER 
642 043044 162716 000002 67$: SUB #2, (SP) SADJUST RETURN TO ERROR 
643 043050 004736 JSR PC a(sP)+ *REPORT ERROR 
644 043052 162716 000010 SUB #10, (5S SRESTORE (SP) 
649 043056 000240 NOP 
647 :REPORT ERROR IF “‘LBT'' IS NOT CORRECT 
648 043060 005037 001140 68$: CLR SGDDAT ;SET GOOD DATA FOR LBT = 0 
649 043064 023727 043536 001060 CMP 78$,4560. 3 SHOULD L8T BE SET?? 
50 043072 101407 BLOS iNO!! 
651 043074 032737 002000 001352 BIT MIAE ,RMERTI WAS IAE SET 
652 043102 001003 BNE 69$ *YES = LAT SH HOULD NOT BE SET 
653 043104 012737 002000 001140 MOV #LBT .SGDDAT :SET GOOD DATA FOR LBT = 1 
654 043112 013737 001350 001142 69$: MOV RMDSI,$BDDAT | :BAD DATA FOR TYPEOUT 
655 043120 042737 175777 001142 BIC #°CLBT, SBDDAT 
656 043126 023737 001140 001142 CMP SGDDAT.$BDDAT 1S LBT CORRECT?? 
657 043134 001413 BEQ YES! ! 
658 043136 062716 000004 ADD #4, (SP) 
659 043142 112776 000017 000000 MOVB «#17, (SP) zERROR NUMBER 
660 043150 162716 000002 SUB #2, (SP) ;MOVE SP TO RETURN FOR ERROR 
661 043154 0047 JSR PC asp) “REPORT LBT IS WRONG 
662 043156 162716 000010 SUB #10, (SP) SRESTORE (SP) 
663 043162 000240 NOP 
665 REPORT ERROR IF “AOE’’ IS INCORRECT 
666 043164 005037 001140 703: CLR SGDDAT SET FOR AOE = 0 
667 043170 032737 002000 001352 BIT #IAE,RMERI WAS “TAE’’ DETECTED?? 
668 043176 001031 BNE 72$ :YES=""AOE’’ SHOULD BE ZERO 
669 043200 023727 043536 001060 CMP 78$ 4560. ;SHOULD AOE BE SET? 
670 043206 101425 BLOS 72$ “NO! ! 
671 043210 005737 043540 TST 79$ *MAYBE 
672 043214 901012 BNE 71$ YES 
673 043216 005737 043542 TST 808 
674 043222 001007 BNE 
675 04.5204 032737 000010 043544 BIT oF, 81$ ;WAS mais. READ ‘OR WRITE CHECK ?? 
676 043232 001413 BEQ 72$ 
677 043234 005737 001340 TST RMWCI [WAS ALL DATA TRANSFERRED ?? 
678 043240 001410 BEQ 72$ : 
679 043242 012737 001000 001140 71$: MOV HAE , SGDDAT SET kor AOE = 1 
680 043250 005037 043540 CLR 79$ CLEAR EXPECTED TRACK 
681 043254 012737 90001 043542 MOV #1,80$ SEXPECT SECTOR = 
682 04.5268 013737 0013 2 001142 72$: MOV RMERII,$BDDAT  :BAD DATA FOR TYPEOUT 
683 043270 042737 176777 001142 BIC #°CAOE . SBDDAT 
684 043276 023737 001140 001142 CMP SGDDAT.$BDDAT ;1S AOE CORRECTY?? 





71 


o 
R 


3430 


34 
34 
34 
34 
34 
34 
34 
35 
35 
3 
3 
3 
3 
3 
3 


OnlSwrn— 
SAERSNAK 


saa 
N—OoOwn 
wees Be 


wi 


™ 


RY 
RRLLE PPLSPLR PLLSPLSS ES 


WWW 
ee 
SRDOS 
QALNMOS 


000004 
000020 
000002 


000010 


000021 
000002 


000010 


043536 


000004 
000000 


000004 


000004 





000000 


001352 
001140 
001140 


001142 
001142 


000000 


: REPORT 
73$: 


REPORT 
74$: 


75$: 


: . = ee 
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K SUBROUTINE 


M14 


BEQ rYES!! 

ADD 

MOVEs 42, SSP) ZERROR NUMBER 

SUB (SP [MOVE SP TO RETURN FOR ERROR 
JSR Be ga(sP)* SREPORT AOE IS WRONG 

SUB #10, ¢ SRESTORE (SP) 

NOP 

ERROR IF RADA, IS NOT CORRECT 

BIT #IAE,RMER1I ;WAS THERE AN IAE ERROR 2? 
BNE “YES = DONT CHECK RMDA,RMDC 
MOV 798 SGDDAT *SETUP EXPECTED DISK ADDRESS 
MOVB  80$,$GDDAT 

MOV RMDAI,$BDDAT §;SETUP RECEIVED DISK ADDRESS 
CMP SGDDAT,$BDDAT COMPARE EXPECTED & RECEIVED 
BEQ 74$ [BRANCH IF EQUAL 

ADD #4, (SP) 

MOVB «#21, a(SP) ZERROR NUMBER 

SUB #2,(S ‘MOVE SP TO RETURN, FOR ERROR 
JSR PC.a(SP)+ ‘REPORT BAD DISK ADDRESS 

SUB #10, (SP) SRESTORE (SP) 

NOP 

ERROR IF RMDC IS INCORRECT 

MOV $,$GDDAT ;SETUP EXPECTED CYLINDER 

BIC #1777 SGD 

MOV C1,$8DD ;SETUP RECEIVED CYLINDER 

CMP $GDDAT, SBDDAT SCOMPARE CYLINDERS 

BEQ [BRANCH IF EQUAL 

ADD #4, (SP) 

MOVB #22.a(SP) sERROR NUMBER 

SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ *REPORT BAD CYLINDER 

SUB #10, (SP) SRESTORE (SP) 

NOP 

ADD #4, (SP) sMOVE (SP) TO ERROR CALL 
ise a($P) [WAS ERROR FOUND? 

ADD 4 (SP) sMOVE (SP) TO ERROR RETURN 
SUB #4, (SP) :MOVE (SP) TO NO ERROR RETURN 
RTS PC 

.WORD 0 i CYLINDER 

"WORD 0 > TRACK 

“WORD 0 SECTOR 

“WORD 60 [FUNCTION CODE 

“WORD 0 [TOTAL # OF TRACKS = LAST TRACK +1 





f 


SEQ 0181 


| 
| 
| 


CZ 
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UBROUT INE 


CePOSI TE ERROR CHECK S$ pA 
.SBTTL COMPOSITE ERROR CHECK SUBROUTINE 
! 
= 


sTHIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND 
RMER2 AFTER wae oS pe EACH REGISTER WORD WITH THE USER'S STATUS 

SMASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER 

3THE MASKS ARE APPLIED. 


CALL: 
1) JSR PC, CMPERRSTS 

WORD MASK FOR ERROR REGISTER 1 

. WORD MASK FOR ERROR REGISTER 2 

BR 22? RETURN HERE IF ERROR 


NOP 

ERROR ERROR NUMBER DEFINED BY SUC 

JSR PC ,a(SP)+ GO BACK TO SUB FOR MORE ae CHECKS 
22? RETURN HERE IF NO MORE ERROR 


ry lis TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD 


CMPERRSTS: 
:MASK AND STORE THE CONTENTS OF RMER! AND RMER2 
001352 001176 MOV RMERII $T mpl ORE RMER1 AT TEMP STORAGE 
637 000000 001176 BIC a(SP) ) , $TMP SSR R1 
716 000002 ADD #2, (SP) [MOVE SP TO NEXT MASK 


37 001400 001200 MOV RAERSI STMP2  :STORE RMER2 AT TEMP STORAGE 
000000 001200 BIC a(SP) ,$TMP2 [MASK RMER2 


R 
Ww 
Ww 
uw 
o 


RELLE 
WWW 
SORTS 
SoFSS 
POSSE 
Stas 
Ww Ww 
N N 


CLEAR USER'S ERROR CALL 
6 000006 ADD 46, (SP) sMOVE SP TO USER'S ERROR CALL 
6 000000 CLRB a(SP) CLEAR ERROR NUMBER 
6 000004 SUB #4, (SP) ;LEAVE SP AT NO ERROR RETURN 


ZSEE IF THERE WERE ANY ERRORS in RMERI MP1 
TST $TMP1 Y ERRORS to REPORT?? 


1$ 
001142 MOV $TMP1,SBDDAT RECEIVED STATUS FOR TYPEOUT 
SGDDAT :E U 


sue 
a et 
+o 
aes 
eee 
NON 


Be 
nm 
so 
So 
=gg2es 
bert th} 
ANON 
ss s 
~~ — 
ba —s 
un ON 
oon Oo 
o2o- 
-om 
z2a<o~ 


OU 
ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 

000066 000000 MOVB #66,a(SP) sCORRECTABLE DATA CHECK ERROR # 
U8 ; P TOR OR ERROR 


#2, 
JSR PC ga(sP)+ SREPORT ERROR VIA USER 
000010 sug #16,(S =MOVE SP BACK TO BRANCH 


1$: 
SEE IF Twene ARE ANY ERRORS TO REPORT IN RMER2 (S$TMP2) 
00573, 001200 TST STMP2 ANY ,ERRORS IN RMER2? 
1420 BEQ 2s 7NO! ! 


13737 001208 001142 MOV eres (aeons spect! TED STATUS FOR TYPEOUT 


—ie 
= 


_ 
on 
m 


on 

~ 
RIQIIIE 
SAAC 

: ~ 

” 

aaa 

<= 

m 

wn 

m 

5 

nn 


PRELLLLLLSE LEP 
S 


SeecESee 


Se 


EXPECT 
16 ADD #4, (SP) “MOV VE_SP TO USER'S ERROR CALL 

11277 7? 000000 MOVB a6? 9 (SP) sWRITE SERROR NUMBER IN USER'S CALL 

162716 2 SUB #2, (SP) 3MOVE SP TO RETURN FOR ERROR 


we 


wy SREP S Ww WW NOPOPEPENPMNNIND) @ 2 2 a 


RRRRR KR 
SURE 


w 
“IN 
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CZRNEAO_RM8O FCTNL PT2 MACRO yee 00 28-JAN-82 16:38:23 PAGE 26-1 SEQ 0183 C 
COMPOSITE ERROR CHECK SUSROUTIN P 

58 e 724 004736 JSR PC ws te ;REPORT ERROR VIA USER 

59 7 § 162716 000010 SUB #10, (SP) ;MOVE SP TO NO ERROR RETURN 

60 0437 00024 NOP 

61 0437 2s: 

3 sAUGMENT THE wat - meeress IF ANY ERROR WAS DETECTED 

64 043734 062716 000004 ADD (SP) ths VE SP TO USER'S ERROR CALL 

65 043740 105776 000000 TSTB 5¢P) WAS | THERE AN ERROR CALLED?? 

66 043744 001403 BEQ 

67 043746 062716 000004 ADD #4, (SP) yes. = MOVE SP TO ERROR RETURN 

68 043752 000402 BR 

69 043754 162716 000004 3$: SUB #4, (SP) sMOVE SP_TO NO ERROR RETURN 

70 043760 000207 4$: RTS PC ;RETURN TO USER 










¢ 15 
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bEVICE SELECT SUBROUTINE 






J .SBTTL DEVICE SELECT SUBROUTINE 
3 : THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE 
5 
6 CALL: 
7 7(1) JSR PC,DEVSEL 
2 :(2) BR 23 RETURN IF NO ERROR 
9 7(3) NOP RETURN IF ERROR 
10 7(4) ERROR ERROR DEFINED BY SUBROUTINE 
lg 043762 DEVSEL: 
14 :CLEAR USER'S ERROR CALL 
15 043762 062716 000004 ADD #4, (SP) :MOVE SP TO USER'S ERROR 
16 043766 105076 000000 CLRB = a SP) [CLEAR LOW ORDER BYTE OF CALL 
Vv 043772 162716 000004 SUB #4, (SP) :MOVE SP BACK 
19 ;SAVE USER'S INFORMATION AND SETUP REGISTERS 
20 043776 013746 000004 MOV ERRVEC,-(SP) | :;PUSH ERRVEC ON STA 
044002 013746 000006 MOV ERRVEC#2,~(SP) : sPUSH Baavers2 ON STACK 
044006 010046 MOV RO. (SP) ::PUSH RO’ ON Srack 
044010 010146 MOV (SP) * PUSH R1 ON STACK 
21 044012 012737 044132 000004 MOV RS eR sSETUP FOR BUS TIMEOUT 
22 044020 012737 000300 000006 MOV aera ER RVECS2 
23 044024 013700 001276 MOV $BASE ,RO RO = UNIBUS ADDRESS 
24 044032 013701 001466 MOV TSTQUE,R1 {RT POINTS TO DEVICE NUMBER 
:SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE 
27 044036 111160 000010 MOVB. (R17 cS2(RO) :WRITE UNIT SELECT BITS 
28 044042 016037 000000 001176 HOV ancst tho) 1 GET * STATUS 
29 044050 016037 000010 001174 MOV RESO). TMP [GET ‘'NED'* STATUS 
37 044056 052737 010000 001174 BIT #NED,STMPO i182 DEVICE NONEXISTENT ? 
33 044066 062766 000004 000010 ADD #4,10(SP) “MOVE SP TO USERS ERROR CALL 
34 044074 112776 000111 000010 MOVB #111,a10(SP) | :WRITE ERROR NUMBER 
35 044102 422 BR 3$ 
37 044104 032737 004000 001176 1S: BIT #DVA,STMP1 31S DEVICE AVAILABLE ? 
38 044112 001021 BNE 4$ “VES! ! 
39 044114 062766 000004 000010 ADD #4,10(SP) SMOVE SP TO USERS ERROR CALL 
40 044122 112776 000112 000010 MOVB #112,@10(SP) | :WRITE ERROR NUMBER 
41 044130 000407 BR 3$ 
43 “HANDLE BUS TIMEOUT 
44 044132 022626 3s: CMP (SP) +, (SP)+ zADJUST SP 
45 044134 062766 000004 000010 ADD #4, 10(SP) *MOVE SP TO USERS ERROR CALL 
46 044142 112776 000113 000010 MOVB 4#113.a10(SP) | :WRITE BUS TIMEOUT ERROR NUMBER 
47 044150 162766 000002 000010 3$: SUB #2,10(SP) SADJUST RETURN TO ‘NOP’ PRECEDING 
48 [THE ERROR CALL 


3 046156 joestone USERS DATA AND RETURN 70 ADDRESS ON STACK 
044156 012601 “OV (SP)+,R1 8-4 STACK INTO R1 
044160 012600 MOV (SP)+,RO :3POP STACK INTO RO 
044162 012637 000006 MOV (SP) +, ERRVEC+2 33POP STACK INTO ERRVEC+2 
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bevice SELECT SUBROUTINE 
0441 12637 000004 MOV (SP)+ ,ERRVEC 
52 baei7s 800807 RTS PC 


::POP STACK INTO ERRVEC 
EXIT 


SEQ 0185 


-— 
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57 044340 


000004 
000000 
000004 
045452 


000010 
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001140 
001352 
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000050 
000002 
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001446 
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001421 
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001335 
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-SBTTL SEEK STATUS CHECK SUBROUTINE 


zTHIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS 
SSTORED IN THE GET BUFFER AND TEST PARAMETERS STORFD IN THE PUT BUFFER. 


THE SUBROUTINE RETURNS TO THE CALL INS ROUTINE IF AN en IS HAH 
TAFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN E "ERROR 
3 OF THE CALLING ROUTINE. SEEK STATUS IS CHECKED AS FOLLOWS: 


tCALL: 
7(1) «JSR PC, SEKSTS 
; BR 229 RETURN HERE IF NO ERROR 
: NOP RETURN HERE TO REPORT AN ERROR 
; ERROR ERROR NUMBER DEFINED BY SUB 
; JSR PC,a(SP)+ 60 BACK TO SUB FOR MORE ERROR CHECKS 
; 22? RETURN HERE IF NO MORE ERRORS 
SEKSTS: 
CLEAR USERS ERROR CALL 
ADD #4, (SP) sMOVE (SP) TO ERROR CALL 
CLRB ss a(SP) [CLEAR ERR 
SUB #4, (SP) [MOVE (SP) TO NO ERROR RETURN 
CLR 20$ SCLEAR ERROR FLAGS 


;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING 
LOCAL on I.E., ‘PAR’ ‘DPE’ = 0 
BIT #PAR ,RMER11 s WAS ,PARITY ERROR DETECTED?? 


BEQ 
BIT ADPE ,RMER2I UAS’ IT DUE TO CONTROL BUS?? 
BNE 1$ NOT SURE!! 


zREPORT REGISTER PARITY ERROR VIA_USER'S ERROR CALL 


CLR GDDA s EXPECTED STATUS 
MOV RMER' I SBDDAT RECEIVED STATUS 
ADD (SPS zMOV VE STACK TO USER'S ERROR 
MOVB 456. a(SP) TERR 
SUB #2, (SP) SMOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ 
SUB #10, (SP) :RESTORE STACK 

3$ SIAE SHOULD BE ZERO 
:DETERMINE THE <VALUE OF ‘'IAE'’ STATUS BASED ON TRACK, SECTOR, CYLINDER 
SAND THE STATUS ‘SSEI™ BIT DURING A SEEK OPERATION. ALSO, SET ''SKI‘' 
“IF CYLINDER LODRESS IS TOO LARGE. 

i$: MOV #IAE. $GDDAT ;SETUP FOR IAE = ! 
BIS 0$ SSETUP FOR SKI = 
CMP ren 6 #s60 560. ‘GREATER THAN LAST CYLINDER ? 
BHI ne tYES = CYLINDER IS INVALID 
BIC #SK1,20$ SCLEAR SKI ERROR FLAG 
CMPB —s« RMDAO+1, LSTRK+1 ;GREATER THAN LAST TRACK ? 
BHI 3$ *YES = TRACK IS INVALID 
CMPB —s RMDAO, #29. SSECTOR > 29. ? 


> » Fam | 
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SEEK STATUS CHECK SUBROUT INE 


082787 


2s 
#FMT16,RMOFO 





SEQ 0187 


BR 
39 bec350 03 010000 001444 BIT 718 BIT FORMAT ? 
416 BEQ *YES = SECTOR IS INVALID FOR 18 BIT MODE 
6 044 360 19378 001420 000036 CMPB —s- RMDAO,, #30. *SECTOR > 30. ? 
10141 BLOS “BR IF NO 
6 bed 70 032737 001000 001444 BIT #SSEI,RMOFO +I1S SSEI CLEAR ? 
64 044376 1406 BEQ $ SYES = SECTOR IS INVALID FOR 16 BIT MODE 
65 044400 123727 001420 000037 CMPB —s- RMDAO,, #31. *SECTOR > 31. ? 
é 044406 101002 BHI 3$ TYES = SECTOR IS INVALID 
68 044410 005037 001140 2$: CLR SGDDAT :""IAE"’ SHOULD = 0 
* COMPARE uEXPECTED AND RECIEVED "‘IAE"* STATUS | 
71 044614 013737 001352 001142 38: RMER11,$BDDAT I 
te 044422 042737 175777 001142 BIC #°CIAE.SBDDAT :SAVE IAE BIT FOR COMPARE 
044430 023737 001140 091142 CMP SGDDAT..SBDDAT 3CORRECT “TAE’ STATUS ? 
7% 044436 001 BNE 4 F 
75 044440 042737 040000 045452 BIC #SK1,20$ =CLEAR SKI FLAG 
76 044446 0004 BR 5$ 760 CHECK NEXT ERROR 
77 044450 4$: sf 
sREPORT INCORRECT “‘IAE’* STATUS VIA USER'S ERROR CALL 
79 044450 062716 ADD #4,(S 
80 044454 112776 000051 000000 Move #51, a(SP) ZERROR 51 
81 044462 162716 02 SUB SMOVE SP TO RETURN FOR ERROR 
044466 004736 JSR PC 5a(SP)+ REPORT INCORRECT IAE 
83 044470 162716 000010 SUB #10,(S sRESTORE (SP) 
84 044474 000240 NOP 
85 044476 5$ 
87 ;REPORT ANY IVC ERROR AS 
88 : IVZ ERROR WITH VOLUME VALID ZERO 
; ERRONEOUS IVC ERROR, VOLUME VALID IS SET 
90 044476 032737 010000 001400 BIT #IVC,RMER2I 31VC ERROR? 
91 044504 001427 BEQ is i 
92 044506 005037 001140 CLR $GD + EXPECTED STATUS 
93 044512 013737 001400 001142 MOV SREROT SBDDAT RECEIVED STATUS 
94 044520 062716 ADD #4, (SPS SB TO_USER'S ERROR 
95 044524 112776 000060 000000 MOVB 460 (SP) {ERROR 60 IF =0 
96 044532 032737 000100 001350 BIT . #VV.RMDSI 
97 044540 901405 BEQ 
98 044542 112776 000061 000000 MOVB #61,a(SP) ZERROR 61 i ay =1 
99 044550 162716 000002 6$: SUB #2,(S *MOVE SP A RETURN FOR ERROR 
100 044554 004736 JSR PC .a(SP)+ SREPORT ERROR V VIA USER 
101 044556 162716 000010 SUB #10, (SP) SRESTORE SP 
102 044562 000240 NOP 
104 044564 013737 0014 001142 7S: MOV RMER21,$BDDAT  ;RECEIVED STATUS 
105 044572 042737 137777 00114 BIC #°CSKI.SBDDAT :CLEAR DON E 
106 044600 013737 045452 00114 MOV 20$,$GDDAT [GET EXPECTED SKI STATUS 
107 044 042737 13777 1140 BIC A°CSKI,SGDDAT ; 
108 044614 001417 BEQ 8$ SBRANCH IF 0 EXPECTED 
110 :REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED) 
111 044616 032737 040000 001142 BIT #5K1,$BDDAT sWAS SKI DETECTED ?? 
11¢ 044624 001032 BNE “YES ! 
113 044626 06271 000004 ADD #4, (SP) EROVE SP TO USERS ERROR CALL 
114 044632 112776 000267 000000 MOVB #267,a(SP) ‘WRITE ERROR NUMBER 


zo 


RE 
a ee ee ee ee ee ee ee ee ee ee 


RRS 


2S 
~ 
ae 
n" 


C 


OONAW 
335 
uERS a 


4 
S 


eer ee 7, | 
an 


vw 


PPVVe 

S222 
ne 
so 


PERPER 
2 3 
ya Pp | 
on 


z 
& 
y 
monw 


4726 


EEREEE 


474 


CSOLKREASSSSSN 


WN=0W78 
FEFEL 
SPISSH 


& 
asassases 333: 
“ 


eo I 
OAAUIVIVIVIUIUIUN & & SS 


YSSSISARARTIS SSVKULUNALSSHVSG 


5050 


SERRE RELRE 


_—oO— 

o 
aes § 
WARD 


S = 
Nj 
Soaoow~s 


Sasa=sc8se 
™ MMW PO 
NNN 

Saw Ww 
SAQAoeannon 


S 
wW 
NR POO 


000002 
000010 


001142 


001400 


001142 
000000 


001352 


001142 


000000 
001350 


000000 


001350 
001352 
001140 


G 15 


FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 28-2 
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SUB #2,¢ :MOVE $P To ERROR RETURN 
JSR PC seep)¢ ;REPOR T ERR OR AND RETURN 
SUB #10, (SP) MOVE SP tO NO ERROR 
2 103° 260 TO NEXT ERROR CHECK 
;REPORT ERROR IF at 1S SET 
1,$BDDAT z1S SKI SET 2? 
Bro $3" ‘NO = SKI IS OK 
ADD #4, (SP) [MOVE (SP) TO ERROR 
MOVB #54,a(SP) [LOAD ERROR NUMBER 
SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC 4a(SP)+ SREPORT SEEK ERROR 
SUB #10,(S SRESTORE (SP) 
NOP 
“REPORT ANY DEVICE CHECK 
5s: eT #DVC RMERZI 3WAS THERE DVC DURING SEEK?? 
CLR SGDDAT <PNPECTED STATUS 
MOV RMER2I,$BDDAT RECEIVED STATUS 
ADD #4, (SPS 
move 4#55,a(SP) ERROR W535 
SUB 2, (SP) *MOVE SP TO RETURN FOR ERROR 
JSR PC a(SP)+ “REPORT ERROR VIA USER 
#i6,(SP) = —-s SRESTORE SP 
sREPORT ANY “‘OPI"’ ERROR AS OPI WITH MOL = 0, OR OPI 
*BECAUSE_ON CYLINDER LATCH DIDN'T, RESET 
i0$: gir #OPI ,RMER1I er ERROR?? 
CLR $GDDAT sEXPECTED STATUS 
MOV RMER1I,$BDDAT RECEIVED STATUS 
ADD #4, (SPS MOVE (SP) TO ERROR 
MOVB 435. a(SP) LOAD ERROR NUMBER 
eI! #0 .RMDSI iuAs MEDIUM ON LINE?? 
MOVB © #53,a(SP) SYES = CHANGE ERROR NUMBER 
11$: SUB #2, (SP) MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ EPORT "‘OPI'’ ERROR 
SUB #10, (SP) {RESTORE (SP) 
NOP 
-SEE IF ‘PIP’ = 0, AND ‘ATA’, "MOL" AND “VvV"' = 1 
12$: MoV RMDSI,-( 
BIC #*C<ATA!PIP!MOL! VV>, (SP) 
CMP HATA!MOL! VV, (SP)+ 
BNE 13$ sERROR IN RMDS 
JMP 17$ SRMDS IS OK 
REPORT ERROR IF MOL = 0 AND OPI = 0 
13S: BIT #MOL .RMDSI IS MOL RESET?? 
BNE 4 ‘NO - MOL IS SET 
BIT #OPI ,RMER11 3WAS OPI SET 
BNE 14$ YES = DONT REPORT ERROR 


MOV RMDSI , $GDDAT ‘EXPECTED STATUS 


SEQ 0188 
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001350 
001400 
001140 
001142 
001142 


000000 


001350 


001350 
001400 
001140 
001140 
001142 


000000 


iss 


sREPORT 
15$: 


sREPORT 
16$: 


17$: 
sMODIFY 


BIS 


#MOL , SGDDAT 


H 15 


MOV RMDSI,$BDDAT § ;RECEIVED STATUS 

ADD #4, (SP) 

MOVB 5 a(SP) 

SUB #2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ SREPORT ERROR VIA USER 

SUB #16, (SP) 

NOP 

AN ERROR IF "PIP" IS STIL SET AND SKI NOT SET 

BIT #P1P.RMDSI 31S “PIP" STILL SET?? 

BIT #SK1,RMER21 SWAS “’SKI''SET?? 

BNE 15 TYES-DONT REPORT PIP 

MOV RMDSI,$GDDAT § :EXPECTED STATUS 

BIC = #PIP, SBDDAT 

MOV RMDSI,$BDDAT  ;RECEIVED STATUS 

ADD #4, (SP) :MOVE (SP) TO ERROR 

MOVB #56,a(SP) SLOAD ERROR NUMBER 

SUB #2, (SP) 3MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ [REPORT ‘PIP’ SET AFTER SEEK 
SUB #10, (SP) sRESTORE (SP) 

NOP 

AN ERROR IF “‘ATA’ IS NOT SET 

BIT #ATA,RMDSI sWAS “‘ATA" SET 2? 

BNE 16$ sYES!! 

MOV RMDSI,SGDDAT EXPECTED STATUS 

BIS HATA! MOL !DPR!DRY.SGDDAT 

MOV RMDSI,$BDDAT RECEIVED STATUS 

ADD #4, (SP) SMOVE (SP) TO ERROR 

MOVB «#57, a( SP) ‘LOAD ERROR R 

SUB » (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ :REPORT ATTENTION NOT SET DURING 
SUB #10, (SP) SRESTORE (SP) 

NOP 

ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO 

BIT ‘ RMDSI 31S W = 0 ?? 

BIT #IVC RMER2I t1S IVC ALSO 0 2? 

BNE 7 =NO = IV SET 

MOV RMDSI,$GDDAT EXPECTED STATUS 

BIS #VV,SGDDAT 

MOV RMDS1,$BDD :RECEIVED STATUS 

ADD 4, (SP) 

MOVB #64,a(SP) ZERROR #64 

SUB 2, (SP) [MOVE SP TO RETURN FOR ERROR 
JSR PC .a(SP)+ 

SUB 16,(S 

NOP 


bao RETURN ADDRESS IF AN ERROR WAS DETECTED 


ADD 


#4, (SP) 


sMOVE (SP) TO ERROR CALL 


SEQ 0189 


ae 
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000000 TSTB | a SP) 
BEQ 18$ 
000004 ADD #4, (SP) 
BR 19$ 
000004 18$: SUB #4, (SP) 
19$: RTS PC 


0 


:WAS ERROR CALLED?? 
*MOVE TO ERROR RETURN 


sMOVE (SP) TO NO ERROR RETURN 
;RETURN 


sERROR FLAGS 





SEQ 0190 | 
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CONTROLLER CLEAR SUBROUTI 
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-SBTTL CONTROLLER CLEAR SUBROUTINE 


zTHIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, 
3AND DRIVES, THEN SELECTS THE DRIVE. 


SCALL: 


CNTCLR: 


1$: 


2$: 


JSR 
BR 


PC,CNTCLR 
223. 


RO. me 4 


SP) 
BRaver (SP) 
ERRVE C+2.—(SP) 


VEC 
#PRG, ERRVEC +2 
$BASE.R 
#CLR,RMCS2(RO) 
TSTQUE, 
(R1) ,RMCS2(RO) 


SP)+ 


SP)+ ofraveces 
=e > ERRVEC 


+,R1 
SP)+,RO 


RETURN HERE IF 
RETURN HERE IF 
SUB DEFINES ER 


ty RO ON S 
as PUSH R1 ON ST. 
2 =PUSH ERRVEC 


SH 
SETUP Fok BUS T 


SEQ 0191 | 


MASSBUS ADAPTERS, 


NO ERROR FOUND 
ANY ERROR FOUND 
ROR NUMBER 


TACK 
ACK 
o STA 
ERaVEc<2 ON STACK 


A EA UNIBUS ADDRESS 
7GET DEVICE UNDER TEST 


7SELECT DEVICE 


sADJUST STACK 

MOVE = TO US 
[WRITE THE ERR 
ADJUST SP TO 


i — CALL 
RETURN TO ERROR 


;;POP STACK ater ERRVEC+2 
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CONTROLLER CLEAR STATUS CHECK SUBROUTINE 

1 .SBTTL CONTROLLER CLEAR STATUS CHECK SUBROUTINE 

: ;THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON 

i *STATUS STORED IN THE GET BUFFER. THIS SUBROUT INE SHOULD ONLY BE 

a ZUSED D FOLLOWING A CONTROLLER CLEAR OPERATION WRITING A 1 IN BIT 

6 OF ANCES BECAUSE THE ERROR MESSAGES ARE BASiD’ ON THAT CONDITION. 

a : STATUS PERTINENT TO THE DEVICE IS NOT CHECKED. IN PARTICULAR, THE 

z FOLLOWING STATUS BITS ARE NOT CHECKED: 

4 : ATA, ERR,PIP,MOL,WRL,LBT.PGM,VV.OM,UNS, SKI ,DVC 

13 

14 CALL: 

15 (1) JSR PC, CLRSTS 

16 : BR 273 RETURN HERE IF NO ERROR 

17 : NOP RETURN HERE TO REPORT AN ERROR 

18 : ERROR ERROR NUMBER DEF INED BY SLS 

19 : JSR PC,a(SP)+ G0 BACK TO SUB FOR MORE ERROR CHECKS 

20 ; 22? RETURN HERE IF NO MORE ERRORS 

32 045572 CLRSTS: 

24 :CLEAR USER'S ERROR CALL 

25 045572 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR 

26 045576 105076 000000 CLRB a(SP) SCLEAR ERROR NUMBER 

27 045602 162716 000004 SUB #4, (SP) ‘MOVE SP BACK TO NO ERROR 

28 -REPORT ERROR IF RMCS1 NOT INITIALIZED 

29 045606 013737 001336 001142 i$: MOV RMCS1I, SBDDAT sVERIFY RMCS1 

30 045614 042737 100000 001142 BIC #SC,$BDD SIGNORE SP ECIAL CONDITION 

31 045622 012737 004200 001140 MOV aBVAIRDY. _SGD0AT SEXPECT DVA 

32 045630 023737 001140 001142 CMP SGDDAT , SBDDAT ; COMPARE EXPECTED, RECEIVED 

33 045636 001413 BEQ 2s CH IF 

34 045640 062716 000004 ADD [MOVE SP TO USER'S ERROR CALL 

35 045644 112776 000126 000000 MOVB A186: BCSP) [WITE ERROR NUMBER IN CALL 

36 045652 162716 000002 SUB #2, (SP SMOVE SP TO RETURN FOR ERROR 

37 045656 004736 JSR PC. a(SP)+ *REPORT ERROR VIA USER 

38 045 162716 000010 SUB #10, (SP) [MOVE SP BACK TO NO ERROR 

39 045 000240 NOP 

40 -REPORT ERROR IF RMBA NOT RESET 

41 045666 005037 001140 d$: CLR SGDDAT :VERIFY RMBA IS ZERO 

42 045672 013737 001342 001142 MOV RMBAI , $BDD 

43 045700 001413 BEQ 3s CH IF ZERO 

44 045702 062716 000004 ADD ‘MOVE SP TO USER'S ERROR CALL 

45 045706 112776 000127 000000 MOVB 4139 SP) *WITE ERROR NUMBER IN CALL 

46 045714 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 

47 045720 004736 JSR PC-a(SP)+ SREPORT ERROR VIA USER 

48 045722 162716 000010 SUB #10, (SP) SMOVE SP BACK TO NO ERROR 

49 045726 000240 NOP 

50 *REPORT ERROR IF RMCS2 NOT INITIALIZED 

51 045730 013737 001346 001142 3$: MOV CS21,$BDDAT  ; VERIFY RMCS2 

52 045736 010146 MOV R1,-(SP) * PUSH R1 ON STACK 

53 045740 005046 CLR -(§P) te IR & UNIT NUMBER 

54 045742 013701 001466 MOV TSTQUE ,R1 ‘R1 = ADDRESS OF TEST QUE 

55 045746 111116 MOVB = (R11), (SP) 

56 045750 092716 000100 BIS #1R, (SP) 

57 045754 012637 001140 MOV (SPS+,$GDDAT 


om 
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33POP STACK INTO R 





' 
58 045760 01 ot 
59 045762 023737 001140 001142 CMP SSODAT SBDDAT + COMPARE EXPECTED t RECEIVED 
60 045770 001413 BEQ [BRANCH IF EQUAL 
61 045772 062716 000004 ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
62 045776 112776 000130 000000 MOVB = #130,a(SP) SWITE ERROR NUMBER IN CALL 
63 046004 162716 000002 SUB ‘MOVE SP TO RETURN FOR ERROR 
64 046010 004736 JSR PC ga(SP)+ [REPORT ERROR VIA USER 
65 046012 162716 000010 SUB #10,(S MOVE SP BACK TO NO ERROR 
66 046016 000240 NOP 
67 REPORT ERROR IF _RMER1 NOT RESET=IGNORE UN 
68 046020 005037 001140 4s: CLR SGDDAT : VERIFY AMER! 
69 046024 013737 001352 001142 MOV RMER11,$BDDA 
70 046032 042737 040000 001142 BIC #UNS , SBDDAT Z IGNORE UNSAFE 
71 046040 001413 BEQ 5$ SBRANCH IF ZERO 
es 046042 062716 000004 ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
046046 112776 000131 000000 MOVB #131,a(SP) SWITE ERROR NUMBER IN CAL 
7% 046054 162716 000002 SUB #2, (SP) ‘MOVE SP TO RETURN FOR ERROR 
75 046060 004736 JSR PC.a(SP)+ SREPORT ERROR VIA USER 
76 046062 162716 000010 SUB #10, (SP) [MOVE SP BACK TO NO ERROR 
77 046066 000240 NOP 
78 -REPORT ERROR IF RMMR1 NOT INITIALIZED~ IGNORE WC,LS,LST 
79 046070 013737 001362 001142 5s: MOV 1, T RIFY 
80 046076 042737 000046 001142 BIC #WCILS'LST, SBDDAT s IGNORE | WORD CLOCK, SCT, TRK 
81 046104 012737 000010 001140 MOV #MWD, $GDDAT sEXPECT URITE D BIT 
82 046112 023737 001140 001142 CMP SGDDAT , SBDDAT ; COMPAR E EXP EteD ND RECEIVED 
83 046120 001413 BEQ 5g CH IF 
84 046122 062716 000004 ADD #4, (SP) “MOVE SP TO USER'S ERROR CALL 
85 046126 112776 000133 000000 MOVB #133,a(SP) SWITE ERROR NUMBER IN CALL 
86 046134 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
87 046140 004736 JSR PC. a(SP)+ “REPORT ERROR VIA USER 
88 046142 162716 000010 SUB #10, (SP) [MOVE SP BACK TO NO ERROR 
89 046146 000240 NOP 
90 :REPORT AN ERROR IF RMEC2 IS NOT RESET 
91 046150 005037 001140 és: CLR SGDDAT zEXPECT ZEROS 
92 046154 013737 001404 001142 MOV RMEC21,$BDDAT :VERIFY RMEC2=0 
93 046162 001413 BEQ 7$ 
94 046164 062716 ADD :MOVE SP TO USER'S ERROR CALL 
95 046170 112776 000135 000000 MOVB «#135, a(SP) SWITE ERROR NUMBER IN CALL 
96 046176 162716 002 SUB » (SP “MOVE SP TO RETURN FOR ERROR 
97 046202 004736 JSR PC 5a(SP)+ sREPORT ERROR VIA USER 
98 046204 162716 000010 SUB #10,(S [MOVE SP BACK TO NO ERROR 
99 046210 000240 NOP 
100 - REPORT ERROR IF RMMR2 NOT INITIALIZED= IGNORE RQA,ROB 
101 046212 013737 001376 001142 7$: RMART SBDDA AT ZVERIFY WMMR2 
102 046220 042737 140000 001142 BIC RGB, $B 
103 046226 012737 011777 001140 MOV aenin? ff ScDDAT sEXPECT TEST BIT ON 
104 046234 023737 001140 001142 CMP SGDDAT, $BDDA 
105 046242 001413 BEQ 8$ 
106 046244 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
107 046250 112776 000136 000000 MOVB #136, a(SP) WITE ERROR NUMBER IN CALL 
108 046256 162716 000002 SUB #2, (SP) <MOVE SP TO RETURN FOR ERROR 
109 046262 004736 JSR PC.a(SP)+ SREPORT ERROR VIA USER 
110 046264 162716 000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR 
111 046270 000240 NOP 
112 REPORT ERROR IF RMER2 NOT RESET~1GNORE sk, pvc 
113 046272 005037 001140 BS: CLR sEXPEC L ZEROS 
114 046276 013737 001400 001142 MOV RMER21 ,$BDDAT ery AMER 
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115 046304 042737 040200 001142 BIC #SK1!DVC,SBDDAT : IGNORE DEVICE ERRORS 

116 046312 001413 BEQ 9$ H IF OTHER BITS 0 

117 046314 068716 000004 ADD #4, (SP) ‘move SP TO USER'S ERROR CALL 
118 046520 112776 000174 000000 MOVB «#174, a(SP) :WITE ERROR NUMBER IN CALL 
119 046326 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 
120 046332 004736 JSR PC a(sP)+ SREPORT ERROR VIA USER 

121 046334 162716 000010 SUB #16, ¢ :MOVE SP BACK TO NO ERROR 

1 ¢ 046540 000240 NOP 

12 “REPORT ERROR IF RMDS NOT INITIALIZED 

124 046342 013737 001350 901142 $$: MOV RMDSI,$BDDAT — ; TEST DRIVE STATUS REGISTER 
125 046350 042737 177177 001142 BIC #*C<DRY !DPR>, SBDDAT 

126 046356 012737 000600 001140 MOV #DPR'DRY,$GDDAT ;EXPECTED DRIVE STATUS 

127 046 023737 001140 001142 CMP SGDDAT,$B8DDAT COMPARE EXPECTED & RECEIVED 
128 046372 001413 BEQ 10$ ‘BRANCH IF EQUAL 

129 046374 062716 000004 ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
130 046400 112776 000134 000000 MOVB «#134, a(SP) [WRITE ERROR NUMBER 

131 946406 162716 000002 SUB #2, (SP) SMOVE SP TO RETURN FOR ERROR 
1 : 046412 004736 JSR PC.a(SP)+ SREPORT ERROR TO USER 
133 046414 162716 000010 SUB #10, (SP) [MOVE SP BACK TO NO ERROR 
134 046420 000240 NOP 

135 046422 262716 000004 10$: ADD #4, (SP) :MOVE SP TO ERROR CALL 

136 046426 10 776 000000 TSTB 3s (SP) 3WAS |AN ERROE DETECTED?? 

137 046432 00140 BEQ 11$ =NO!! 

138 046434 062716 000004 ADD #4, (SP) [YES = MOVE TU ERROR RETURN 
139 046440 000402 BR 

140 046442 162716 000004 11$: SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 
141 046446 000240 12$: NOP 

142 046450 000207 RTS PC 


Ame Am Ser eee FANMOAM 2S BS KOS TOMNMOOWZEl ACH TO MWMOOOZ El ACK TOA MMOO® 
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1 .SBTTL PACK ACKNOWLEDGE STATUS CHECK 
3 THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE 
4 :C USING THE STATUS STORED IN THE GET BUFFER. ERRORS ARE 
5 ‘RP PORTED” 3 THE USER VIA THE USER'S ERROR CALL. 
$ CALL: 
8 7) JSR PC,ACKSTS 
9 BR 273 RETURN HERE IF NO ERROR 
10 : NOP RETURN HERE TO REPORT AN E 
11 : ERROR ERROR NUMBER DEFINED BY SUS 
1 : JSR PC,a(SP)+ 60 BACK TO SUB FOR MORE ERROR CHECKS 
13 ; 22? RETURN HERE IF NO MORE ERRORS 
13 046452 ACKSTS: 
17 CLEAR USER" S ERROR CALL 
18 046452 062716 000094 #4, (SP) zMOVE SP TO ERROR CALL 
19 046456 105076 000000 CURB 5cgP) ZCLEAR LOW ORDER BYTE 
20 046462 162716 000004 SUB #4, (SP) [MOVE SP BACK 
22 ;REPORT AN ERROR IF "VV" IS 0 
23 046466 032737 000100 001350 BIT #VV,RMDSI :1S VOLUME VALID SET?? 
24 046474 001024 BNE TYES!! 
25 046476 013737 001350 001140 MOV RMDSI,$GDDAT  : EXPECTED STATUS 
26 046504 052737 000100 001140 BIS #VV,$GDDAT 
27 046512 013737 001350 001142 MOV RMDSI,$BDDAT RECEIVED STATUS 
28 046520 062716 000004 ADD #4, (SP) [MOVE SP TO ERROR CALL 
29 046524 112776 000155 000000 move #155,a(SP) ‘WRITE NUMBER IN ERROR CALL 
30 046532 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN FUR ERROR 
31 046536 004736 JSR PC. a(SP)+ SREPORT THE ERROR 
32 046540 162716 000010 SUB #10, (SP) “MOVE SP BACK TO BRANCH 
33 046544 000240 NOP 
34 046546 1$: 
3 ;REPORT AN ERROR IF "MOL" IS 0 
37 046546 032737 010000 001350 BIT #"OL.RMDSI z1S MOL SET?? 
38 046554 001024 BNE $ YES! ! 
39 046556 013737 001350 001140 MOV RDS $GDDAT  :EXPECTED STATUS 
046564 092737 010000 001140 BIS L.$GDDAT 
41 046572 013737 001350 001142 MOV RMS SBDDAT  ;RECEIVED STATUS 
04 062716 000004 ADD #4, (SP) *MOVE SP 10 ERROR CALL 
04 112776 000041 000000 MOVB «#41, a( SP) [WRITE NUMBER OF ERROR IN CALL 
046612 162716 000002 SUB #2, (SP :MOVE SP To RETURN FOR ERROR 
45 046616 004736 JSR PC a(SP)+ SREPORT TH ERROR 
6620 162716 000010 SUB #16, (SP) :MOVE sp TO BRANCH 
47 046624 000240 NOP 
48 046626 2$: 
50 3SEE IF “UNS”, “OPI, "RMR" ,ILR", OR “ILF'' IS SET 
51 046626 032737 060007 001352 BIT MUNS!OPT!RMRIILALILE .RMERTI 
3 046634 001570 BEQ 7$ 
54 ZREPORT AN ERROR IF ‘UNS’ IS SET 
55 046636 032737 040000 001352 BIT #UNS ,RMER11 sWAS UNS SET?? 
36 6644 001424 BEQ 3$ i! 
57 046646 013737 001352 001142 MOV RMERII,SBDDAT  :RECEIVED STATUS 
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58 54 


@ 046716 
0 046724 
a] gree 6 


EESASSES 


QESREOLSSELEARE 
ERRLLEF 


SaNASSSSRSSSVSsss 
PELLLPSPLRER 
YIVIIYIIII33 

S HREPRSSSLSES 
Secs 


as oe 
SWN0o 
RRR 
ORs 
PN 





So 
wW 


ore 
man 
QONNNS 


IT ee 
MIS PNNPoNy 
Sovioae 


oo 


000004 
001352 
001352 
000004 
000004 
000044 
000002 
000010 


000001 


001352 
001352 


001140 
001140 


000000 


001352 
00114 


001352 


001142 
001140 
001140 


000000 


001352 
001142 
001140 
001140 


000000 


001352 


001142 
001140 


MOV RMER1! SDDAT 
BIC #UNS $GDDA 
ADD Fe 
MOVB 45. a(sP) 
SUB #2, (SP) 
JSR PC.a(SP)+ 
SUB #16, (SP) 
NOP 
3$: 


zREPORT ANY OPI ERROR 
BIT acim. 


BEQ 

MOV RMER11,$BDDAT 
MOV RMER11, $GDDAT 
BIC #0PI $GDDAT 
ADD (SP) 

MOV 45. a(SP) 

SUB #2, (SP) 

JSR PC pa(SP)+ 

SUB #10,(S 

NOP 


4$: 


REPORT ANY RMR ERROR 
BIT manta 


MOV RMER11 , SBDDAT 
MOV RMER1I, coe 


JSR PC.a(SP)+ 
SUB #10, (SP) 


NOP 

5$: 

;REPORT ANY ILR ERROR 
BIT #ILR,RMER11 
BEQ 6$ 
MOV RMER11, $BODAT 
MOV RMER1I . $GDDAT 
BIC #ILR,SGDDA 
ADD #4, (SP) 
move «#45, a( SP) 
SUB #2, (SP) 
JSR PC. a(SP)+ 
SUB #10,(5 
NOP 

6$: 


sREPORT ANY ILF ERROR 
BIT eilr. oRMERII 


MOV RMER11 , $BDDAT 
MOV RMER11,$GDDAT 


SEQ 0196 


sEXPECTED STATUS 
$4] SP TO wy CALL 


3R T 
7MOVE SP TO NO ERROR RETURN 


ua OPI SET ?? 
TRECEIVED STATUS 
ZEXPECTED STATUS 


L 
R OF ERROR IN CALL 
MOVE SP_TO RETURN FOR ERROR 


SREPORT THE ERROR VIA USER 


sMOVE SP TO NO ERROR RETURN 


sWAS | RMR SET?? 
3NO!! 


;RECEIVED STATUS 
EXPECTED STATUS 


me SP TO ERROR CALL 

WRITE NUMBER OF ERROR IN CALL 
{MOVE SP_TO RETURN FOR ERROR 
SREPORT THE ERROR VIA USER 
;MOVE SP TO NO ERROR RETURN 


eWAS | ILR SET?? 


RECEIVED STATUS 
ZEXPECTED STATUS 


sMOVE SP TO ERROR CALL 
WRITE NUMBER OF 

3MOVE SP TO RE 

ZREPORT THE ERROR VIA USER 
SMOVE SP TO NO ERROR RETURN 












sWAS | ILF SET?? 
3NO!! 


SRECEIVED STATUS 
ZEXPECTED STATUS 
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CZRNEAO RM8O F 
PACK ACKNOWLEDGE STATUS CHECK | 
115 7162 04 737 01 001140 BIC #ILF ,SGDDAT 
116 71 16 ADD #4, (SP) sMOVE SP TO ERROR CALL 
117 047174 11277 : 000000 MOVB #46,a(SP) [WRITE NUMBER OF ERROR IN CALL | 
118 047202 162716 90 SUB #2, (SP) “MOVE SP TO RETURN FOR ERROR 
119 047 06 004736 JSR PC. a(SP)+ [REPORT THE ERROR VIA USER 
120 047210 162716 000010 SUB #16, (SP) [MOVE SP TO NO ERROR RETURN 
121 047214 000240 NOP 
1g 047216 7$: 
12% sAUGMENT RETURN ADDRESS IF ERROR WAS FOUND 
125 047 Ig 062716 000004 ADD #4, (SP) ;MOVE SP TO ERROR CALL 
136 o47¢e2 105776 000000 STB a($P) tWAS ERROR FOUND?? | 
127 047 26 00140 BEQ NO! ! 
128 0472 062716 000004 ADD #4, (SP) TYES = MOVE TO ERROR RETURN 
129 047234 00040 BR 
1 047256 162716 000004 8$: SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 
131 047242 00024 9$: NOP 
132 047244 000207 RTS PC 


CZRNEAO RM80 
RECAL IBRATE 
; 
& 
5 
6 
4 
8 
9 
10 
i 
13 
14 
15 047246 
16 
17 
13 047246 
19 047252 
20 047256 
21 
22 
25 
24 047262 
25 047270 
26 
27 
28 
29 047272 
30 047300 
31 047302 
32 047310 
33 047312 
34 047320 
5 047326 
947334 
$ 047346 
047346 
39 047352 
40 047354 
41 047360 
42 047362 
43 
44 
45 047362 
46 047370 
47 047372 
48 047400 
49 047406 
50 047414 
51 047420 
52 047426 
53 047432 
54 047434 
55 047440 
28 047442 
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000000 
000004 


022011 


000010 


000001 
001352 
90000) 
001352 
006004 
000071 
000002 


000010 


001352 


001352 
001400 
001140 
001140 
001142 


000000 


001352 
001140 
001140 
001142 
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»SBTTL RECALIBRATE STATUS CHECK SUBROUTINE 


;THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION 


ZUSING THE STATUS STORED IN THE GET BUFFER. 


CALL: 
701) 


RCLSTS: 


sCLEAR USER'S ER 
ADD 

CLRB 

SUB 


RCLSTS 


PC, a(SP)+ 


ROR NUMBER 
#4, (SP) 
a(SP) 
#4, (SP) 


;CALL S 
T 


RETURN 


3CLEAR 
sMOVE S 


RR 
GO _ BACK 


UBROUT INE 


SU8 
TO SUB FOR MORE ERROR CHECKS 
HERE IF NO MORE ERRORS 


USER'S ERROR CALL 
P BACK TO BRANCH 


3SEE IF A ll OR ““ILF*’ OR “‘OPI"’ OR *‘IAE*’ IS SET 


sREPORT 
7" ‘PAR’ 


1$: 
REPORT 


ANY 


# 
ER11,$BD 

#4. (SPS 

#71 ,a(SP) 
2, (SP) 


“*ILF** ERROR 
MILF ,RMERTI 


RMER11,$ 
S$GDDAT 
DAT 


GDDAT 
A 


#OPI!PAR!ILF!IAE,RMERII 
5$ sNONE ARE SET = GO TO NEXT CHECK 


MASSBUS CONTROL BUS PARITY ERROR, 1.E., 
AND "DPE = 0 


sWAS “I 
SEXPECT 


NUMBER IN CAL 
;MOVE Ae FOR ERROR 


AR, RMER1I zWAS “PAR SET2? 
#DPE ,RMER2I :WAS DPE’ SET? 
RMER1I.$GDDAT EXPECTED STATUS 
#PAR, $GDDA) 
RMERII,$BDDAT ;RECEIVED STATUS 
#4.(SPS :MOVE SP'TO USER'S ERROR CALL 
#50,a(SP5 :WRITE ERROR 
#2, (SP) : 

a(SP)+ *GO REPORT ERR 

#10, (SP) SMOVE SP BACK TO BRANCH 


LF** SET?? 
ED STATUS 


sRECEIVED STATUS 


. MOVE 
WRITE 


sMOVE S$ 
;REPORT 


“MOVE SP BACK TO SRANCH 


SP TO USER'S ER 
c NUMBER 


TO 
ERROR VIA _US 





? 
NOT A REGISTER ERROR 
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RECALIBRATE STATUS CHECK SUBROUTI 

58 REPORT ANY "OPI" ERROR AS ~ 

59 : . OPI DUE TO MOL’ = 0 

60 ; * OPI BECAUSE ON CYLINDER LATCH DIDN® I RESET 

61 047442 032737 020000 001352 BIT #OP1 ,RMERTI :WAS OPI SET? 

; 047450 001433 BEQ $ =NO!! 

6 047458 013737 001352 001140 MOV RMER1I,$GDDAT EXPECTED STATUS 

64 0474 0427 7 02 001140 BIC #OPI,$GDDAT 

65 047466 013737 001 001142 MOV RMERII,$BDDAT  ;RECEIVED STATUS 

66 947474 062716 000004 ADD #4, (SPS MOVE SP TO USER'S ERROR CALL 

67 047500 W12776 00007 MOVB #72,a(SP) WRITE ERROR NUMBER IN USER'S CALL 

68 047506 032737 010000 001350 BIT #MOL,RMDS! [WAS ‘MOL’ = 02? 

69 047514 001403 BEQ 3$ TYES!! 

70 047516 112776 000073 000000 MOVB #73,a(SP) [NO = CHANGE ERROR NUMBER 

71 047524 162716 000002 3$: SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 

ie 047530 004736 JSR PC asp) SREPORT ERROR VIA USER 
047532 162716 000010 SUB #10, (5 :MOVE SP BACK TO BRANCH 

74 047536 000240 NOP 

03 047540 4$: 

77 ;REPORT AN ERROR IF "IAE’’ IS SET 

78 047540 032737 002000 001352 BIT #IAE ,RMERII s1S “IAE’’ SET2?? 

79 047546 001424 BEQ NO! ! 

80 047550 013737 001352 001140 MOV RMER1I,$GDDAT EXPECTED STATUS 

81 047556 042737 002000 001140 BIC MIAE , SGDDAT 

82 047564 013737 001352 001142 MOV RMER I SBDDAT  ;RECEIVED STATUS 

83 047572 062716 000004 ADD (SPS ‘MOVE SP TO ERROR CALL 

84 047576 112776 000070 000000 MOVB 56. SSP) “WRITE ERROR NUMBER IN USER'S CALL 

85 047604 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 

86 047610 004736 JSR PC.a(SP)+ *REPORT ERROR 

87 047612 162716 000010 SUB #10, (SP) “MOVE SP BACK TO NO ERROR RETURN 

88 047616 000240 NOP 

89 047620 5$: 

91 sSEE IF "SKI" OR “‘IVC’ OR “DVC'’ IS SET 

92 047620 032737 050200 001400 BIT OR skILIVe :DVC. RMER21 

3 047626 001517 BEQ 9$ :NONE OF THE BITS ARE SET 

95 

96 ;REPORT ANY “Iver ERROR AS 

97 : .1VC WITH WV = 0 

98 : = ERRONEOUS ave ERROR 

99 047630 032737 010000 001400 BIT #IVC ,RMERZI :WAS IVC SET?? 

100 047636 001433 BEQ NO! ! 

101 047640 013737 001400 001140 MOV 1 Re SEXPECTED STATUS 

102 047646 042737 01 001140 BIC a vc SEDDAT 

103 047654 013737 001400 001142 MOV ER21 $B RECEIVED STATUS 

104 047 062716 000904 ADD $f558 ‘MOVE SP TO USER'S ERROR CALL 

105 047 112776 000074 000000 - MOVB met SSP) [WRITE ERROR NUMBER IN CALL 

106 047674 032737 000100 001350 BIT #VV_.RMDSI [WAS VV = 02? 

107 047702 001403 BEQ YES! ! 

108 047704 112776 000075 000000 MOV = #75, a(SP) [NO = CHANGE ERROR NUMBER 

109 047712 162716 000002 6$: SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 

110 047716 004736 JSR PC. a(SP)+ SREPORT ERROR VIA USER 

111 047720 162716 000010 SUB #10, (SP) *MOVE SP BACK TO BRANCH 

Ie 047724 000240 NOP 

113 047726 7$: 
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TE STATUS CHECK SUBROUTINE 


;REPORT ANY “'SKI"* ERROR 


eI! #SK1,RMERZI sWAS SKI SET?? 
MOV RMER21,$GDDAT EXPECTED STATUS 
BIC —- #SKI, $GDDAT ; 
MOV RMERCI SBDDAT ;RECEIVED STATUS,” 
ADD #4, (SPS VE SP TO USER'S ERROR CALL 
MOVB 3s #776, s(SP) tURI TE ERR ER 
SUB SP [MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ REPORT ERROR V VIA USER 
SUB #10, (SP) ‘MOVE SP TO BRANCH 
NOP 
8$: 
:REPORT ANY “DVC"" ERROR ct 
git apve, /RMER2ZI sWAS "DVC"* SET?2 
MOV RMER21.$GDDAT EXPECTED STATUS 
BIC #DVC, $GDDAT 
MOV R21, SBDDAT sRECEIVED STATUS 
ADD (SP5 — SP TO USER'S ERROR CALL 
MOVB 477 a(SP) tURI ERROR R 
SUB P) [MOVE SP TO RETURN FOR ERROR 
JSR pe *a(SP)+ SREPORT ERROR VIA USER 
sup #10, (SP) :MOVE SP TO USER'S BRANCH 
9$: 
:SEE IF "PIP AND "OM" ARE 0, AND "‘ATA'’,"MOL'’ AND "VV"" ARE 1 
MOV 1,-(SP) >PUT RMDS ON STACK 
BIC #°C<PIP!MOL!VV!OM!ATA>, (SP) 
CMP WATA!MOL ! VV, (SP)+ 
BNE 10% 
JMP 15$ 
10$: 
REPORT AN ERROR IF MOL = 0 AND OPI = 0, I.E., MEDIUM WENT OFF 
tLINE AFTER RECALIBRATE WAS AN GATED 
BIT #MOL .RMDSI :DID MOL DROP?? 
BNE 1$ NO! ! 
BIT #OP1,RMERTI ZuAs OPI ERROR REPORTED?? 
BNE YES = DON'T REPORT MOL=0 
MOV RMDSI,$GDDAT PECTED STATUS 
BIS #MOL ,$GDDAT 
MOV RMDS Si °$B SBDDAT _ ;RECEIVED STATUS 
ADD #6 (SB) nove SP’ TO USER'S ERROR CALL 
move #100,a sWRIT ERROR NUMBE 
SUB #2, i (SP *MOVE SP TO RETURN FOR ERROR 
JSR pe “a(sP)s *REPORT ERROR V 
sug #10, (SP) *MOVE SP BACK TO USER. S BRANCH 
11$: 
;REPORT 0 AND “‘IvC’’ = 0 


th ERROR IF ‘‘vv"’ = 


BNE 
BIT 


sDID | "vv" DROP?? 
Ant THERE A IVC ERROR?? 


#VV.RMDSI 
#IVC,RMER2I 


SEQ 0200 
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FCTNL PT 
STATUS CHEC 


K SUBROUTINE 
BNE 
1350 00114 MOV RMDSI,$GDDAT 
1 114 MO’ RMDSI . SBDDAT 
000100 00114 BIS #VV,SGDDAT 
ADD (SP) 
101 000000 mMOVB #101,a(SP) 
2 SUB (SP) 
JSR PC.a(SP)+ 
000010 CyB #16, (SP) 
NOP 
12$: 
;REPORT AN ERROR IF ATA IS NOT S 
100000 001350 BIT #ATA,RMDSI 
001350 001140 MOV $1, $GDDAT 
100000 001140 BIS #ATA, $GDDAT 
001350 001142 MOV Si, $BDDAT 
000004 ADD 4, (SP) 
000102 000000 MO #102,a(SP) 
000002 S #2, (SP) 
JSR PC.a(SP)+ 
000010 S #10, (SP) 
NOP 
13$: 
;REPORT AN ERROR IF "‘OM’’ IS NOT 
SALWAYS CLEAR OFFSET MODE 
000001 001350 git #0M.RMDSI 
001350 0011 MOV RMDS1,$GDDAT 
000001 001140 BIC #0M, $GDDAT 
001350 001142 MOV RMDS1,$BDDAT 
ADD #4, (SP) 
000103 000000 MOVB «#103, a( SP) 
000002 S #2, (SP) 
JSR PC.a(SP)+ 
000010 S #16, (SP 
; NOP 
14$: 
;REPORT AN ERROR IF “PIP’' IS STI 
= CYLINDER 
020000 001350 BIT #P1P.RMDSI 
040000 001400 iT #SK1RMER2I 
1350 001140 MOV RMDSI,S$GDDAT 
020000 001140 BIC #PIP,S$GDDAT 
001350 001142 MOV RMDSI,$BDDAT 
000004 ADD #4.(SP) :MOVE SP 
000104 000000 move  #104,a(SP) 
000002 SUB 2, ($P) 
JSR PC.a(SP) 
000010 5 16,(S 


SEQ 0201 


zYES = DONT REPORT vVv=0 
sEXPECTED STATUS 

sRECEIVED STATUS 

sMOVE SP TO USER'S ERROR CALL 
WRITE ERROR NUMBER IN CALL 
sMOVE SP TO RETURN FOR ERROR 


sMOVE SP BACK TO USER'S BRANCH 


ET 
sWAS ATA SET DURING RECALIBRATE?? 


sYES:: 
sEXPECTED STATUS 
ake ahs STATUS 


: SP TO USER’S ERROR CALL 
sWRITE ERROR NUMBER IN CALL 


sMOVE SP TO USER'S BRANCH 


ZERO BECAUSE RECALIBRATE SHOULD 
ZuAs “OM RESET?? 
SEXPECTED STATUS 


sRECEIVED STATUS 
sMOVE SP TO USER'S ERROR CALL 
;WRITE ERROR 


; E NUMBE 
sMOVE SP TO RETURN FOR ERROR 


REPORT ERROR VIA USER 
sMOVE SP TO USER'S BRANCH 


L ON, I.E., DRIVE NOT ON 
1S DRIVE OFF CYLINDER? 
3WAS “'SKI"* DETECTED? 
3YES-DONT REPORT "PIP" 
SEXPECTED STATUS 


sRECEIVED STATUS 
TO Te ERROR CALL 


: NUMBER 
“MOVE SP TO RETURN FOR ERROR 
:MOVE SP BACK TO USER'S BRANCH 
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RECALIBRATE STATUS CHECK SUBROU 


15$: 
:SEE IF “‘ILR OR "RMR OR “UNS IS SET 
BIT #ILR!RAR ‘UNS ,RMER1 I 
BEQ 18$ 
sREPORT AN ERROR IF “ILR’ IS SET 
eIT #ILR,RMERTI ;WAS ILR SET DURING RECALIGRATE?? 
MOV RMER11 SGDDAT TEXPECTED STATUS 
BIC #ILR,SGDDA 
MOV RMER Ril SBDDAT sRECEIVED STATUS 
ADD reat 5 hee TO USER'S ERROR CALL 
MOVB wis ac (sb WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) *MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ 
SUB #16, (SP) :MOVE SP TO USER'S BRANCH 
16$: 
;REPORT AN ERROR IF "RMR" IS SET 
BIT #RNR. R11 ;WAS RMR SET?? 
MOV RMER1I,$GDDAT EXPECTED STATUS 
MOV RMERII,$BDDAT  ;RECEIVED STATUS 
ADD #4, (SPS MOVE SP TO USER'S ERROR CALL 
MOVB #106,a(SP) SWRITE ERROR NUMBER IN USER'S CALL 
SUB #2, [MOVE SP TO RETURN FOR ERROR 
JSR PC pa(sP)+ ZREPORT ERROR VIA USER 
SUB #10,(S :MOVE SP TO USER'S BRANCH 
NOP 
17$: 
sREPORT AN ERROR IF "UNS" IS SET AND pyc Is 0 
BIT RMER1I zWAS UNSAFE ON?? 
BEQ 1 NO! ! 
BIT  ‘#DVC,RMER2I [WAS THERE A DEVICE CHECK?? 
BNE YES REPORT UNSAFE 
MOV RMER1I, SGDDAT S EXPECTED STATUS 
BIC #UNS ,$GDDA 
MOV RMER I SBDDAT :RECEIVED STATUS 
ADD *MOVE SP TO USER'S ERROR CALL 
MOVB m0? -a(sP) [WRITE ERROR NUMB' 
SUB 2, (SP) :MOVE SP TO RETURN FOR ERROR 
JSR PC ga(sh)+ REPORT ERROR VIA USER 
sug #16, ¢ *MOVE SP BACK 10. USER'S BRANCH 
18$: 
yAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
ADD #4, (SP) MOV VE SP TO USER'S ERROR CALL 
TSTB 5¢Sp) 3WAS AN AN ERROR REPORTED? ? 
BEQ 19$ NO! 
ADD #4, (SP) Nee - AUGMENT SP RETURN 
19$: SUB #4,(SP) ;NO ERROR - RETURN SP TO BRANCH 


CZRNEAO RM8O FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 32-5 
RECALIBRATE STATUS CHECK SUBROUTINE 

obe 051004 oooese 208: NOP 

87 051006 000 RTS PC 


I 16 


sSTATUS CECK IS COMPLETE 


0203 


tie eS Na Z 


J 16 


AO RM8O FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 33 SEQ 0204 
CLEAR STATUS CHECK SUBROUTINE 
1 .SBTTL DRIVE CLEAR STATUS CHECK SUBROUTINE 
g : BR 22? RETURN HERE IF NO ERROR 
4 : NOP RETURN HERE TO REPORT AN ERROR 
5 : ERROR ERROR R DEFINED BY SUB 
§ ; JSR PC,a(SP)+ 60 BACK TO SUB FOR MORE ERROR CHECKS 
i : 22? RETURN HERE IF NO MORE ERRORS 
R 051010 DRVSTS: 
11 ZCLEAR USER'S ERROR CALL 
le 951010 062716 ADD #4, (SP) :MOVE SP TO ERROR CALL 
13 051014 105076 000000 CLRB = a SP) SCLEAR ERROR CALL 
14 051020 162716 000004 SUB #4, (SP) “MOVE SP TO USER'S BRANCH 
15 “REPORT ERROR IF RMCS1 NOT INITIALIZED 
16 051024 013737 001336 001142 i$: MOV ,$BDDAT  ;CHECK RMCS1 
17 051032 042737 173700 001142 BIC #°C<DVA!FNCMSK>,SBDDAT ;CLEAR DONT CARES 
18 051040 012737 010 001140 MOV #DVA!DRVCLR, SGDDAT SEXP V 
19 051046 023737 001140 001142 CMP SGDDAT,SBDDAT ;COMPARE EXPECTED & RECEIVED 
20 051054 001443 BEQ 3$ ‘BRANCH IF 
31 051056 062716 000004 ADD #4, (SP) :MOVE SP TO ERROR CALL 
2 051062 112776 000141 000000 MOVB =: #141, a(SP) [WRITE NUMBER OF ERROR IN CALL 
23 051070 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR E 
24 051074 004736 JSR PC.a(SP)+ SREPORT THE ERROR VIA USER 
25 051076 162716 000010 SUB #16, (SP) [MOVE SP TO NO ERROR RETURN 
26 051102 000240 NOP 
27 *REPORT ERROR IF RMDS NOT INITIALIZED 
28 051104 013737 001350 001142 2S: MOV SI.$8DDAT ;CHECK RMDS 
29 051112 737 021101 001142 BIC #PGM!OM'VV!PIP,SBDDAT ;CLEAR DONT CARES 
30 051120 012737 0106 001140 MOV #MOL' DPR! DRY. SGDDAT sEXPECT DRY & DPR 
31 051126 023737 001140 001142 CMP SGDDAT.$BDDAT ;COMPARE EXPECTED & RECEIVED 
32 051134 001413 BEQ 3$ SBRANCH IF EQUAL 
33 051136 062716 000004 ADD #4, (SP) *MOVE SP TO ERROR CALL 
34 051142 112776 000142 000000 MOVB #142, a(SP) [WRITE NUMBER OF ERROR IN CALL 
35 051150 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
36 051154 004736 JSR PC.a(SP)+ SREPORT THE ERROR VIA USER 
37 051156 162716 000010 SUB #10, (SP) [MOVE SP TO NO ERROR RETURN 
38 051162 000240 NOP 
39 *REPORT ERROR IF RMER1 NOT INITIALIZED 
40 051164 005037 001140 3$: CLR GDDA sEXPECT 0°S 
41 051170 013737 001352 001142 MOV RMER1I,$BDDAT CHECK RMER1 
4¢ 051176 001413 BEQ SBRANCH IF EQUAL 
4 051200 062716 ADD #4, (SP) *MOVE SP TO ERROR CALL 
44 051204 112776 000143 000000 MOVB #143, a(SP) SWRITE NUMBER OF ERROR IN (ALL 
45 051212 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN FOR ER. 2 
46 051216 004736 JSR PC.a(SP)+ SREPORT THE ERROR VIA USER 
47 051220 162716 000010 SUB #10, (SP) ‘MOVE SP TO NO ERROR RETURN 
48 051224 000240 NOP 
49 “REPORT ERROR IF ATA NOT INITIALIZED 
50 051226 013737 001354 001142 4$: MOV RMASI,$BDDAT ;CHECK ATTENTION BIT 
51 051234 010146 MOV R1,-(SP) +;PUSH R1 ON STACK 
32 051236 010246 MOV R2,-(SP) +:PUSH R2 ON STACK 
53 051240 013701 001466 MOV TSTQUE ,R1 
54 051244 116102 000001 MOVB =-«*1(R1),, 
55 051250 042702 177400 BIC #*CATNMSK R2 
36 051254 00510 COM 
57 051256 040237 001142 BIC R2,$BDDAT 
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FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 53-1 
TATUS CHECK SUBROUTINE 


MOV (SP)+,R 


33POP STACK INTO R2 


MOV (SP)+-R +:POP STACK INTO R1 
TST SBDDAT :1$ ATTENTION CLEARED?? 
BEQ 5 [BRANCH IF ATTENTION CLEARED 
ADD #4, (SP) “MOVE SP TO ERR 
000000 MOVB #144, a(SP) WRI R ROR IN CALL 
SUB , (SP) :MOVE SP TO RET OR ERROR 
JSR PC. a(SP)+ SREPORT THE ERROR VIA USER 
Sug #16, (SP) :MOVE SP TO NO ERROR RETURN 
-REPORT ERROR IF RMMR1 NOT INITIALIZED 
901142 S$: MOV ,SBDDAT CHECK 
114 BIC #WC'LS'LST,$BDDAT ZCLEAR DONT CARES 
001140 MOV WMD, SGDDAT sEXPECT WRITE DATA ON 
001142 CMP SGDDAT,$BDDAT  :COMPARE EXPECTED AND RECEIVED 
BEQ 6$ ‘BRANCH IF ZERO 
ADD #4, (SP) [MOVE SP TO ERROR CALL 
000000 Ova #145, a(SP) [WRITE NUMBER OF ERROR IN CALL 
SUB #2, (SP) :MOVE S RETURN FOR ERR 
JSR PC.a(SP)+ [REPORT THE ERROR VIA USER 
Sug #10, (SP) :MOVE SP TO NO ERROR RETURN 
:REPORT ERROR IF RMMR2 NOT INITIALIZED 
901142 és: MOV RMMR21,$BDDAT | ;CHECK RMMR2 
00114 BIC #ROA'ROB,SBDDAT :CLEAR REQA, REQB 
001140 MOV #TST!1777, $GDDAT sEXPECT TEST BIT ON 
001142 CMP SGDDAT,$SBDDAT ;COMPARE EXPECTED & RECEIVED 
BEQ 7$ ‘BRANCH IF EQUAL 
ADD ry *MOVE SP TO ERROR CALL 
000000 MOVB #146,a(SP) “WRITE NUMBER OF ERROR IN CALL 
SUB #2, [MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ [REPORT THE ERROR VIA USER 
sup #10, (SP) [MOVE SP TO NO ERROR RETURN 
7$: CLR SGDDAT ZEXPECT ZEROS 
sREPORT ERROR IF RMEC2 NOT RESET 
001142 Ov RMEC21,$BDDAT ; CHECK RMEC 
ADD (SP) *MOVE SP TO ERROR CALL 
000000 MovB #150, a(SP) [WRITE NUMBER OF ERROR IN CALL 
SUB 2, (§P) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC.a(SP)+ [REPORT THE ERROR VIA USER 
sug 16,(S [MOVE SP TO NO ERROR RETURN 
“REPORT ERROR IF RMER2 NOT RESET 
001142 8$: MOV RMER21,$BDDAT ;:CHECK RMER2 
BEQ ‘BRANCH IF NO ERROR 
ADD (SP) [MOVE SP TO ERROR CALL 
000000 MOVB «#147, a (SP) [WRITE NUMBER OF ERROR IN CALL 
SUB (SP) ‘MOVE SP TO RETURN FOR ERROR 
JSR PC. a(SP)+ SREPORT THE ERROR VIA USER 
sug #16,(S ‘MOVE SP TO NO ERROR RETURN 
9$: 
10$: 


SEQ 0205 





SN 
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AO RMBO FCTNL PT2 MACRO V04. 00 28-JAN-82 16:38:23 PAGE 33-2 

CLEAR STATUS CHECK SUBROUTINE 
15 sAUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND 

1 0515 962716 900004 ADD #4, (SP) MOVE a TO ERROR CALL 

17 051566 1 176 TSTB agp) [WAS AN ERROR DETECTED?? 
18 0515 90140 BEQ 11$ Nor! 

9 051374 062716 000004 ADD #4, (SP) [YES = MOVE SP TO ERROR RETURN 
34 "3600 162716 000004 11$: SUB #4, (SP) ;MOVE SP BACK TO NO ERROR RETURN 
‘ 051606 40 12$: NOP 

3 057610 000207 RTS PC :RETURN TO USER 


SEQ 0206 


ieee : 
Seas 


1 
CZRNEAO RM80 FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 34 SEQ 0207 
SATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


~SBTTL DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


1 
i sTHIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS 
4 USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS 
5 :STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING 
6 THE ERROR NUMBER IN THE USERS ERROR CALL. 
5 SUSER'S SUBROUTINE CALL: 
9 71) PC. DTASTS 
10 3 (2) RETURN HERE IF NO DATA ERRORS 
11 7(3) NOP RETURN HERE TO REPORT AN ERROR 
12 7(4) ERROR SUB WRITES ERROR NUMBER 
13 7(5) JSR PC,a(SP)+ USER RETURNS FOR MORE CHECKS 
14 306) 2? SUB RETURNS HERE AFTER ALL 
13 ; ERRORS ARE REPORTED 
Vv 051612 DTASTS: 
19 SCLEAR USER'S ERROR CALL AND ERROR FLAGS 
26 051612 062716 000004 ADD #4, (SP) sMOVE SP TO USER'S ERROR 
21 051616 105076 900000 CLRB 0s a(SP) [CLEAR LOW ORDER BYTE OF TRAP 
22 051622 162716 000004 SUB rH (SP) SRESTORE SP TO NO ERROR 
33 051626 005037 055226 CLR 198 *CLEAR ERROR FLAGS 
33 sREDORT ANY CONTROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS, 
27 051632 032737 020000 001336 ** BIT WMCPE,RMCS11  ; WAS_ THERE A PARITY ERROR?? 
28 051640 001422 BEQ 1$ NO! ! 
29 051642 013737 001336 001140 MOV RMCS11,$GDDAT EXPECTED STATUS 
30 051650 042737 020000 001140 BIC E, $GDDAT 
31 051656 013737 001336 001142 MOV RMCS11,$BDDAT  ;RECEIVED STATUS 
32 051664 062716 000004 ADD #4, (SPS [MOVE SP TO USER’ S. ERROR CALL 
33 051670 112776 000013 000000 MOVB «#15, a( SP) [WRITE ERR 
34 051676 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN IF ERROR 
35 051702 004736 JSR Pt. a(SP)+ SREPORT ERROR AND RETURN 
36 051704 000466 BR 4$ 
37 051706 1$: 
39 ZREPORT ANY _ “Nino. OPE = PARITY ERROR WHILE WRITTING REMOTE REGISTERS. 
41 051706 032737 000010 001352 °° ° BIT AR, RMER11 sWAS THERE A PARITY ERROR?? 
42 051714 001435 BEQ NO! ! 
43 051716 327 , 000010 001400 IT #DPE ,RMER21 3DATA PARITY ERROR ? 
45 031726 13037 rit 901140 MOV RMER1 I SGDDAT TEXPECTED STATUS 
47 051742 Ogee o3001 1142 MOV RMERII,$BDDAT  ;:RECEIVED STATUS 
48 051750 062716 ADD #4, (SPS 3MOV VE SP TO USER'S ERROR 
49 051754 112776 0 000 MOVB 456. asp) ITE ER ER 
20 051762 036737 001000 001346 BIT an #MXE LR :DID F MXF GET SET?? 
52 051772 11 ae 000274 000000 MOVB 4274 a a(sP) =NO x CHANGE ERROR NUMBER 
5 052000 162716 000002 2$: SUB SMOVE SP TO RETURN IF ERROR 
54 052004 7: JSR PC. acon *REPORT ERROR AND RETURN 
s 052006 2 BR 
7 sLOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR 


“aon 
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CZRNEAO RM80 FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 34-1 
BATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


sMECHANICAL POSITIONING 


sFIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION 
*CODE AND GO BIT WERE LOADED 


$$: 
eI #MXE ,RMCS21 ;WAS "MISSED TRANSFER’ SET??2 
MOV RMCS21,$GDDAT EXPECTED STATUS 
BIC F SGDDAT 
MOV RMCS2I,$BDDAT  ;RECEIVED STATUS 
ADD r [MOVE SP TO USER'S ERROR CALL 
MOVB #275,a(SP) ZWRITE ERROR NUMBER 
SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
aa JSR PC.a(SP)+ SREPORT ERROR AND RETURN 


zRESTORE SP TO NO ERROR RETURN AND BYPASS 1" En STATUS CHECKING 
SUB #10, (SP) sMOVE SP NO_ ERROR 
MP SKIP TO END OF SUB 


5$: 
:REPORT AN ERROR IF ‘‘OPI'' ERROR OCCURRED DUE TO ‘MOL"’ = 0 F OPI" 
SAND D ‘MOL’ ARE SET, BUT WV‘ IS RESET, INDICATING AN INTERMGTTENT 
BIT #OPI ,RMER1I z1$ OPI" SET?? 
MOV RMER11,$GDDAT sIOPECTED STATUS 
BIC 6DDAT 
MOV RMERII,SBDDAT :RECEIVED STATUS 
BIT #MOL .RADSI 3WAS MEDIUM OFF LINE?? 
BEQ 6$ 3YES!! 
BIT #V .RMDSI zMAS ‘MOL INTERMITTENT?? 
6$ ADD #4, (SP) [MOVE SP TO USER'S ERROR CALL 
MOVB  4#276,a(SP) SWRITE ERROR NUMBER IN CALL 
SUB (8 *MOVE SP TO RETURN IF ERROR 
JSR PC.a(SP)+ [REPORT ERROR AND RETURN 
SUB #10, (SP) *RESTORE SP TO NO ERROR 
7$: 


sREPORT “‘OPI"’ ew WHICH IS DUE TO ‘ON CYLINDER” NOT DROPPING OR 
3" RUN’ alee (2 ne ~ SEARCH TIMEOUT (50 M 


:MOVE SP TO USER’ $ ERROR CALL 
MOVB nat otSP) SWRITE ERROR NUMBER IN CALL 
SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
JSR PC asp) [REPORT ERROR AND RETURN 
sug #10,(S SRESTORE SP TO NO ERROR 


3LOOK FOR yen ERROR DURING sant pearl ION 
BIT #IVC .RMER2I THERE AN “‘IVC'* ERROR?? 


:REPORT Five’ ERROR DUE TO "Vv" REPORT ERRONEOUS ‘‘IVC'’ ERROR 
MOV RMER2I , SGDDAT 135,08 8 STATUS 








SEQ 0208 


"wom 


ono 


CZRNEAO RM8O FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 34-2 SEQ 0209 
A TRANSFER COMMAND STATUS CHECK SUBROUTINE 
115 05 336 10000 90114 #IVC,SGDDAT 
116 052244 1400 00114 RMERCI,SBDDAT  ;RECEIVED STATUS 
117 052252 [MOVE SP TO USER'S ERROR 
118 052256 300 990000 #300, a(SP) [WRITE ERROR NUMBER IN CALL 
119 05 64 100 001350 #VV,RMDSI WAS VOLUME VALID?? 
is 052274 000301 000000 #301,a(SP) *CHANGE ERROR NUMBER 
122 052308 000002 98: #2, (SP) MOVE SP TO RETURN IF ERROR 
1g 052306 PC.a(SP)+ SREPORT “IVC'’ ERROR AND RETURN 
124 052310 000010 #10, (SP) TRESTORE SP TO NO ERROR 
125 052314 10S: 
196 ee ee e te 
12 3SEE IF “ILF’ OR “RMR IS SET 
128 052314 000007 001352 MILRIILFIRMR, RMER1I 
129 052322 001510 BEQ aye 3NO ERRORS DETECTED 
130 :REPORT AN ERROR IF “ILR'’ IS SET 
131 052324 032737 000002 001352 BIT #ILR,RMERTI :WAS “ILR" DETECTED?? 
132 052332 001424 BEQ =NO!! 
133 052334 013737 001352 001140 MOV RMER11,$GDDAT EXPECTED STATUS 
134 052342 042737 001140 BIC #ILR,SGDDAT 
135 052350 013737 001352 001142 MOV RMERII,$BDDAT ;:RECEIVED STATUS 
136 052356 062716 000004 ADD #4, (SPS “MOVE SP TO USER'S ERROR CALL 
137 05 112776 000302 000000 MOVB #302,a(SP) SWRITE ERROR NUMBER IN CALL 
138 052370 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN IF ERROR 
139 052374 004736 JSR PC.a(SP)+ SREPORT ERROR AND RETURN 
140 052376 162716 000010 SUB #10, (SP) [RESTORE SP TO NO ERROR 
141 052402 000240 NOP , 
14e 052404 11$: 
144 ;REPORT AN ERROR IF “ILF'' IS SET tig 
145 052404 032737 000001 001352 BIT #ILF ,RMERTI sWAS “ILF’* DETECTED?? 
146 052412 001424 BEQ NO! ! 
147 052414 013737 001352 001140 MOV RMER1I,$GDDAT EXPECTED STATUS 
148 052422 042737 000001 001140 RIC #ILF ,SGDDAT 
149 052430 013737 001352 001142 RMERII,SBDDAT  ;RECEIVED STATUS 
150 052436 716 04 ADD #4, (SP ‘MOVE SP TO USER'S ERROR CALL 
151 052442 112776 000303 000000 MOVB #303,a(SP) “WRITE ERROR NUMBER IN CALL 
Ibe 052450 162716 000002 SUB [MOVE SP TO RETURN IF ERROR 
153 052454 004736 JSR PC.a(SP)+ [REPORT ER RETURN 
154 052456 162716 000010 SUB #10, (SP) SRESTORE SP TO NO ERROR 
155 052462 000240 
136 052464 12$: 
158 sREPORT AN ERROR IF "RMR" IS SET 
159 052464 032737 000004 001352 BIT #RMRRMERTI sWAS “RMR DETECTED?? 
160 052472 001424 BEQ $ NO! ! 
161 052474 013737 001352 001140 MOV RMER1I,$GDDAT EXPECTED STATUS 
162 052502 042737 001140 BIC SGDDA 
163 052510 013737 001352 001142 MOV RMERII,$BDDAT  ;RECEIVED STATUS 
164 052516 062716 ADD (SPS [MOVE SP TO USER'S ERROR CALL 
165 09252 112776 304 000000 MOVB #304 a(sP) WRITE ERROR NUMBER IN CALL 
166 0929 162716 2 SUB #2, (§P) ‘MOVE SP TO RETURN IF ERROR 
167 052534 004736 JSR PC.a(SP)+ *REPORT ERROR AND RETURN 
168 056536 162716 000010 SUB #10, (SP) “RESTORE SP TO NO ERROR 
169 052542 000240 NOP 
170 052544 13$: 
i :DETERMINE WHETHER OR NOT “‘IAE’’ SHOULD BE SET AND CHECK FOR ERROR 


1 
AO RM8O0 FCTNL PT2 MACRO V04.00 Pe | 16:38:23 PAGE 34-3 : SEQ 0210 


CZRNE 
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 

172 052544 7 000 1140 MOV MIAE ,SGDDAT SETUP FOR “IAE‘' = 1 

173 035853 03 038737 $000 055206 BIS K :SETUP FOR SKI" = 1 

174 0525 1446 CMP RMDCO, #560. *GREATER THAN LAST CYLINDER ? 
175 05 366 1610 5 BHI 15$ SYES = CYLINDER IS INVALID 
176 052570 042 040000 055226 BIC #SK1,49$ SRESET SKI FLAG 

178 052576 123737 001421 001335 CMPB ss RMDAO +1, LSTRK+1 i GREATER THAN LAST TRACK ? 
179 052604 101026 BHI 15$ *YES = TRACK IS INVALID 

181 052606 123727 001420 000035 CMPB —s RMDAO,, #29. 31S SECTOR > 29. ? 

182 052614 101420 BLOS 14 

183 052616 032737 010000 001444 BIT #FMT16,RMOFO  :18 BIT FORMAT ? 

184 052624 90141 BEQ 15$ vege TE OrOR 1S INVALID FOR 18 BIT MODE 
185 05 626 123727 001420 000036 CMPB —s RMDAO, #30. SIS SECTOR > 30. ? 

186 052634 101410 BLOS NO 

187 052636 032737 001000 001444 BIT #SSEI ,RMOFO t1S SSEI CLEAR ? 

188 052644 001406 BEQ 15$ SYES = SECTOR IS INVALID FOR 16 BIT MODE 
189 052646 123727 001420 000037 CMPB —s- RMDAO,, #31. +IS SECTOR > 31. ? 

190 052654 101002 BHI 15$ 3YES = SECTOR IS INVALID 
191 052656 005037 001140 14$: CLR SGDDAT :""IAE"’ SHOULD = 0 

193 052662 013737 001352 001142 15$: MOV RMERTI .SBDDAT :GET RECEIVED STATUS 

194 052670 042737 175777 00114 BIC #*CIAE, SBDDAT 

195 052676 023737 001140 00114 CMP SGDDAT.$B8DDA] :1S “IAE'’ STATUS OK?? 

196 052704 001004 BNE NO! ! 

197 052706 042737 040000 055226 BIC #SK1,49$ S JAE OK = SKI SHOULD BE 0 
198 052714 000412 BR 

199 052716 062716 000004 16$: ADD #4, (SP) :MOVE SP TO USER'S ERROR CALL 
200 052722 112776 000305 000000 MOVB #305,a(SP) [WRITE ERROR NUMBER 

201 052730 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
202 052734 004736 JSR PC.a(SP)+ [REPORT ERROR AND RETURN 
203 052736 162716 000010 SUB #10, (SP) *MOVE SP TO NO ERROR 

204 052742 17$: 

206 :REPORT AN ERROR IF “’SKI"* IS SET AND "‘IAE'’ STATUS WAS OK 
207 052742 013737 001400 001142 MOV R21,$BDDAT  ;RECEIVED STATIS 

208 052750 042737 137777 001142 BIC #°CSKI.SBDDAT 

309 052756 013737 055226 001140 MOV 49$,$GDDAT ZEXPECTED STATUS 

210 092764 042737 137777 001140 BIC #°CSKI ,SGDDAT netigge 

211 052772 032737 040000 001400 BIT #SKI ,RAER2I sWAS "'SKI'* SET?? 

212 053000 001417 BEQ $ 

213 083002 032737 040000 055226 BIT #SK1,49$ SUAS. SKI CAUSED BY IAE = 02? 
214 053010 001032 BNE 198 “YES = DON'T REPORT SKI 

215 053012 716 000004 ADD (SP) *MOVE SP TO USERS ERROR CALL 
16 053016 112776 000306 000000 MOVB 4306; a(SP) [WRITE ERROR 

17 053024 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN IF ERROR 
18 O33039 905546 000010 $06 Figs fain’ gf ee 
320 053036 000417 BR 

234 053040 18$: 

22 


zREPORT a oe IF nds" 0 AND IAE WAS NOT DETECTED 


$e $330e8 050737 040000 055226 I ; SHOULD SKI BE SET?? 
53050 062716 ADD #4. (SP) *MOVE SP TO USER'S ERROR CALL 
$58 053054 112776 000307 000000 mMOVB «#307, a( SP) SWRITE ERROR NUMBER IN CALL 


F 1 
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9 05 162716 000002 SUB #2, (SP) :MOVE SP TO RETURN IF ERROR 
05 JSR PC.a(SP)+ SREPORT ERROR RETURN 
31 053070 162716 000010 SUB #16, (SP) SRESTORE SP TO NO ERROR 

¢ 053074 000240 NOP 
333 053076 19$: 
$33 sLOOK FOR “‘LSC’’ OR LBC’ OR “DVC'’ IN ERROR REGISTER #2 

36 053076 032737 006200 001400 BIT #LSCILBC!DVC, »RMER2I 
937 053104 001512 BEQ :NO ERRORS SET 
339 ;REPORT ANY DEVICE FAULT, I.£.. "DVC' = 1 

40 053106 032737 000200 001400 BIT DVC RMER2I 31S, “pvc” = 12? 
341 053114 001424 BEQ 

4e 053116 013737 001400 001140 MOV RMER2I SGDDAT s NO DECTED STATUS 
243 053124 042737 000200 001140 BIC - #DVC,$GDDA 
244 053132 013737 001400 001142 MOV RMEREI 1 SBDDAT RECEIVED STATUS 
245 053140 716 ADD [MOVE SP TO USERS ERROR 
246 053144 112776 000310 000000 . MOVB a310° a(sP) SWRITE ERROR NUMBER IN CALL 
247 053152 162716 000002 SUB P ;MOVE SP _TO RETURN IF ERROR 
248 053156 36 JSR PC ga(sh+ “REPORT ERROR AND RET 
249 053160 162716 000010 SUB #10, (S SRESTORE SP TO NO ERROR © 
250 053164 000240 NOP 
231 053166 20S: 
253 ;REPORT LOSS OF BIT CLOCK, I.£.; “LBC’’ = 1, IF ‘MOL’ = 1 
254 053166 032737 002000 001400 BIT #LBC,RMERCI :1S LBC S SET?? 
255 053174 001430 BEQ NO! ! 
256 053176 032737 010000 001350 BIT AMOL .RMDSI [WAS LBC ERROR BY MOL = 0 
257 053204 001424 BEQ YES! ! 
258 053206 013737 001400 001140 MOV RMER2ZI.$GDDAT EXPECTED STATUS 
259 053214 042737 002000 001140 BIC #LBC,$GD 
260 053222 013737 001400 001142 MOV RMERDI,SBDDAT  ;RECEIVED STATUS 
261 053230 062716 000 ADD #4, (SP *MOVE SP TO USER'S ERROR CALL 
262 053234 112776 000311 000000 MOVB © #311,a(SP) *WRITE ERROR NUMBER IN CALL 
263 053242 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
see B2a5e5 965796 000010 JSR BC tse} SREP ORT Cann NO Baru 
266 053254 000240 
e 053256 21$: 

:REPORT LOS OF SYSTEM CLOCK, I1.€., “LSC’' = 1 
or sss 56 es Bigs 004000 001400 eT #LSC,RMERZI iis THES = 12? 

2re 03 05 013737 001400 001140 MOV RMER2I,$GDDAT EXPECTED STATUS 
3 05 7 bear 7 004000 001140 BIC #LSC,SGDDAT 

7% o23¢h 013737 901400 001142 MOV RMERSI,SBDDAT  ;:RECEIVED STATUS 
373 05331 062716 (00004 ADD :MOVE SP 10 USER'S ERROR CALL 
76 053314 112776 Ovu312 000000 MOVB asi a(sP) ZWRITE ERROR NUMBER 
$74 S3uist $22H8 oooot see ottdey”HRESYOhe"S2o'No ERNE 
$9 0533 b65548 
280 053332 22$: 
282 sLOOK FOR "'UNS'’ OR “DTE’’ OR "WLE'’ IN ERROR REGISTER #1 

83 053332 032737 054000 001352 * BIT S'DTE!WLE,RMER1I 
$B: 053340 001527 nn :NO BITS SET 


BEQ 
:REPORT "UNS" ERROR IF “DVC" = 0° 
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BIT S RMERII :1S_ "UNS" SET?? 
BEQ ; tt, eo . ) 
BIT ADVC .RMER2ZI WAS, "UNS'* CAUSED BY “DVC''?? 
MOV RMER1I,$GDDAT EXPECTED STATUS 
BIC #UNS , $GDDA 
MOV RMERII,SBDDAT  ;RECEIVED STATUS 
ADD § ‘MOVE SP TO USERS ERROR CALL 
MOVB 4#313,a(SP) SWRITE ERROR 
SUB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
JSR PC 4a(SP3+ [REPORT ERROR AND RETURN 
SUB #10,(S SRESTORE SP TO NO ERROR 

23$: 

;REPORT ANY DRIVE TIMING ERROR, 1.€., “DTE'’ = 
BIT »RMERTI 3 Is “PTE SET?? 
MoV RMER1I.$GDDAT EXPECTED STATUS 
BIC #DTE,SGDDAT 
MOV RMERII,$BDDAT  ;RECEIVED STATUS 
ALD ft ds *MOVE SP TO USER'S ERROR CALL 
MOVB #314,a(SP) “WRITE ERROR NUMBER IN CALL 
SUB #2, (SP) *MOVE SP TO RETURN IF ERROR 
JSR PC 5a(sP)+ SREPORT ERROR AND RETURN 
SUB #10, (SP) sMOVE SP TO NO ERROR 

248: 

REPORT AN ERROR IF WRITE LOCK ERROR IS SET. SEE IF DRIVE IS NOT 

SWRITE PROTECTED. OR IF FUNCTION WAS NOT A WRITE 
BIT WUE RMERT WAS "WLE" SET?? 
BEQ $ ?NO!! 
MOV RMER11,$BDDAT RECEIVED STATUS 
MOV RMERII.$GDDAT EXPECTED STATUS 
BIS MULE ,SGDDAT 
ADD #4, (SP sMOVE SP TO USERS ERROR CALL 
MOVB #315,a(SP) WRIT OR NUMBER IN CALL 
eI! #URL.RMDSI ZWAS DRIVE WRITE PROTECTED?? 
gir #B1T3,RMCS10 IMAG COMMAND A WRITE?? 

25$:  MOVB 4#316,a(SP) *CHANGE ERROR NUMBER 
BIC #WLE.SGDDAT 

26$: SUB #2, (SP) :MOVE $P TO RETURN IF ERROR 
JSR PC ga(sh)+ *REPORT ERROR AND RETURN 
SUB #16, ¢ ‘MOVE SP TO NO ERROR 

273: 

zOMIT DATA ERROR CHECKS IF ANY PREVIOUS ERRORS HAVE BEEN DETECTED 
ADD 4, (SP) SP TO USER'S ERROR 
TSTB) 3s (SP) WAS ERROR DETECTED?? 
BEQ 28$ ?NO = DO DATA CHECKS 
SUB #4, (SP) SRESTORE SP 
JMP 42$ SSKIP DATA CHECKS 

28$: SUB #4, (SP) *RESTORE SP 


zCHECK HEADER ERRORS IF FUNCTION ans NOT WRITE HEADER AND DATA, AND 


SEQ 0212 


Cc 
B 
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z1F HEADER COMPARE 1S NOT INHIBITED 





6 013737 90141 0552 0 MOV RMCS10, 50S sSTRIP AND STORE FUNCTION CODE 
54 737 177700 055230 BIC #°CENCASK 50S 
22737 000063 055230 CMP #WH!G0,50$ :WAS FUNCTION WRITE HEADER & DATA?? 
131 BEQ 31$ YES = SKIP HEADER CHECKS 
ie} 032737 002000 001370 BIT #HC1RMOF I ‘WAS HCI SET? 
3700 001106 BNE 31$ SYES = SKIP HEADER CHECKS 
;SEE IF ANY HEADER ERRORS ARE SET, I.E., "FER" OR "HCRC" OR "HCE" 
3702 032737 000620 001352 BIT WHCRC!FER!HCE,RMERTI 
3710 001533 BEQ 33$ vty ERRORS SET 
;REPORT HEADER CRC ERROR IF SET 
712 032737 000400 001352 BIT WHCRC,RMER1I  ;WAS HCRC SET?? 
7 053720 00142 BEQ NO! ! 
053722 013737 001352 001140 MOV RMER1I,$GDDAT EXPECTED STATUS 
¥ 053730 042737 001140 BIC #HCRC, SGDDAT 
3736 013737 001352 001142 MOV RMER' I SBDDAT  ;RECEIVED STATUS 
53744 062716 000004 ADD (SP ;MOV VE SP TO USERS ERROR 
53750 112776 000317 000000 MOVB #31) aCSP) ITE ERROR NUMBER 
53756 162716 000002 SUB #2, (SP) “MOVE SP TO RETURN IF ERROR 
364 053762 004736 JSR PC.a(SP)+ SREPORT ERROR AND RETURN 
365 053764 000501 BR 32$ 
53766 29S: 
;REPORT FORMAT ERROR IF SET 
3766 032737 000020 001352 BIT #FER,RMERII :WAS "FER" SET2? 
370 053774 001422 BEQ 0$ NO! ! 
371 053776 013737 001352 001140 MOV RMER1I.$GDDAT EXPECTED STATUS 
372 054004 042737 000020 001140 BIC #FER, SGDDAT 
373 054012 013737 001352 001142 MOV RMERII,$BDDAT  ;RECEIVED STATUS 
374 054020 062716 000004 ADD #4, (SPS *MOVE SP TO USERS ERROR 
375 054024 112776 000320 000000 MOVB 4350 a(sP) *WRITE ERROR NUMBER 
376 054032 162716 000002 SUB #2, (SP) SMOVE SP TO RETURN IF ERROR 
77 054036 004736 JSR PC a(SP)+ “REPORT ERROR AND RETURN 
378 054040 000453 BR 32$ 
379 054042 30S: 
381 : :REPORT HEADER COMPARE ERROR IF SET 
382 054042 032737 000200 001352 BIT #HCE ,RMERTI 3WAS "HCE" SET2? 
383 054050 001453 BEQ 3$ =NO! ! 
384 05405 013737 001352 001140 MOV RMER1I,$GDDAT EXPECTED STATUS 
385 054 27 7 200 001140 BIC #HCE ,SGDDAT 
54 013737 001352 001142 MOV RMERII,$BDDAT  ;:RECEIVED STATUS 
38 054074 062716 ADD #4, (SP SMOVE SP TO USER'S ERROR 
054100 112776 000321 000000 MOVB © #321,a(SP) [WRITE ER 
389 054106 162716 000002 SUB #2, (SP) *MOVE SP TO RETURN IF ERROR 
390 054112 004736 JSR PC. a(SP)+ SREPORT ERROR AND RETURN 
91 054114 000425 BR 3 
2 ; THERE SHOULD BE NO HEADER ERRORS BECAUSE 
z JenDeN UNAM etteoatsed 
95 054116 032737 0 001352 * BIT SHCESFERIHCRC, RMER1I 
396 054124 001425 BEQ 33 3NO ERRORS WERE SET 
Be oseise | 042737 090626 tees Moy BAER ESGDDAT ZEXPECTED STATUS 
399 054142 O43 539 80935 teres MOV RMERII.SBDDAT. ;RECEIVED STATUS 


om 
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400 054150 062716 900004 ADD #4, (SP) sMOVE SP TO USER'S ERROR CALL 
401 054154 112776 000322 000000. MOVB #3e2,a(SP) [WRITE ERROR NUMBER 
402 054162 162716 SUB #2, (SP) ‘MOVE SP TO RETURN IF ERROR 
403 054166 004736 JSR PC.a(SP)+ : REPORT ERR OR AND RETURN 
404 054170 162716 10 32$:  SiB 6, (SP) [MOVE S$ NO ERROR 
405 054174 00013 ed 0 JMP 42$ :OMIT SURTHER DATA CHECKS 
407 054200 33S: 
409 IF COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR CHECKS, OTHERWISE 
410 *DO READ ERROR CHECKS 
411 054200 032737 000010 055230 BIT eel 50$ :WAS THIS A WRITE COMMAND? 
412 054206 00100 BNE NO! ! 
413 054210 000137 054426 JMP $s [G0 DO WRITE STATUS CHECK 
414 054214 34S: 
416 ;REPORT DATA CHECK IF SET 
417 054214 032737 100000 001352 BIT #DCK RMER1I :DATA CHECK ERROR?? 
418 054222 001450 BEQ NO! ! 
419 054224 013737 001352 001140 MOV RMER1I SGDDAT [EXPECTED STATUS 
420 054232 042737 100000 001140 BIC $GDDA 
421 054240 013737 001352 001142 MOV RHE AT SBDDAT :RECEIVED STATUS 
422 054246 062716 ADD i [MOVE SP TO USER'S ERROR 
423 054252 112776 000323 000000 MOVB #353, a(SP) WRITE ERROR NUMBE 
424 054260 032737 004000 001370 BIT #EC1.RMOF I WAS ECC CORRECTION DISABLED?? 
425 054266 901021 BNE TYES!! 
426 054270 112776 000324 000000 MOVB #324,a(SP) [CHANGE TO RECOVERABLE ERROR 
427 054276 032737 000100 001352 BIT #ECH,RMER1I1 31S ERROR RECOVERABLE ?? 
54304 001007 BNE 
:D0 NOT REPORT RECOVERABLE ERROR" IF READ COMMAND 

430 054306 032737 000020 055230 BIT #B1T4,50$ WAS THIS A READ COMMAND ?? 
431 054314 001406 BEQ 36$ ino’! 
432 054316 162716 000004 SUB #4, (SP) iResT TORE SP 
433 054322 000410 BR 7$ SKIP ERROR = DATA WILL BE CORRECTED 
434 054324 112776 000325 000000 35$:  MOVB #325,a(SP) TO NON RECOVERABLE 
435 054332 162716 36$: SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
436 054336 004736 JSR PC pa(sP)+ “REPORT ERROR AND RETURN 
437 054340 162716 000010 sup. —ts«s #10, (S SRESTORE SP TO NO ERROR 
439 054344 37S: 
441 zREPORT DATA BUS PARITY ERROR IF sé 1.£. =1 
ane 054344 032737 000400 001346 BIT #MDPE,RMCS21 sg P. ARITY ERROR. SET?? 
443 054352 001428 BEQ $ NO! ! 
444 054354 013737 001346 001140 MOV RMCS21,$GDDAT :EXPECTED STATUS 
445 054362 042737 000400 001140 BIC #MD, A 
446 054370 073737 001346 001142 MOV RMCS21 ,$BDDAT sRECEIVED STATUS 
447 054376 062716 000004 ADD #4, (SPS VE SP TO USER'S ERROR 

8 054402 112776 326 000000 MOVB #306,a(SP) CURITE ERROR NUMBER 
449 054410 162716 2 SUB #2, (SP) [MOVE SP TO RETURN IF ERROR 
450 094414 004736 JSR PC a(SP)+ *REPORT ERROR AND RETURN 
451 054416 162716 10 SUB #10, (SP) [MOVE SP TO NO ERROR 
43¢ 054422 000137 054640 38$:  JMP 42$ *SKIP WRITE STATUS CHECK 
454 054426 39S: 
455 


456 zTEST TO SEE THAT OFFSET MODE WAS RESET; REPORT ERROR IF “‘OM’’ = 1 
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457 054426 030737 000001 001350 BIT #0M,RMDS1 
458 0544 t+ BEQ 
459 054436 0137 1350 001140 MOV RMDS1,$GDDAT 
460 054444 04 3 1 00114 BIC GDDAT 
461 054452 013737 001350 00114 MOV RMDSI,$BDDAT 
054460 0627 ADD & 
463 054464 112776 000327 000000 MOVB #307,a(SP) 
464 054472 162716 000002 SUB Pp 
465 054476 004736 JSR PC pa(SP3+ 
466 054500 162716 000010 SUB #10,(S 
467 054504 40: 
469 sTEST FOR DATA BUS PARITY ERROR; 
470 054504 032737 000010 001400 BIT ADPE ,RMER2I 
471 054512 001423 BEQ 
are 054514 013737 001400 001140 MOV RMER21 ,$GDDAT 
473 054522 042737 000010 001140 BIC #DPE .SGDDAT 
474 054530 013737 001400 001142 MOV RMEROI , SBDDAT 
475 054536 062716 000004 ADD #4, (SP 
476 054542 112776 000330 000000 MOVB #330,a(SP) 
477 054550 162716 000002 SUB #2, (SP) 
478 054554 004736 JSR PC a(sP)+ 
054556 162716 000010 SUB #10,(S 
54552 41$: 
482 
483 054562 032737 000040 001352 BI 
484 054570 001423 BEQ 
485 054572 013737 001352 0011 MOV RMER11 ,$GDDAT 
486 054600 042737 000040 001140 BIC MUCE $C 
487 054606 013737 001352 001142 MOV RMERII,SBDDAT 
488 054614 062716 000004 ADD #4, (SPS 
489 054620 112776 000331 000000 MOVB #331,a(SP) 
490 054626 162716 000002 SUB #2, (SP) 
491 054632 004736 JSR PC.a(SP)+ 
492 054634 162716 000010 SUB #10, (SP) 
495 054640 42S: 
495 ;REPORT “DATA LATE’ ERROR IF “DLT'’ = 
496 054640 032737 100000 001346 BIT #DLT,RMCS21 
497 054646 001423 BEQ 
498 054650 013737 001346 901140 MOV RMCS21 ,SGDDAT 
499 054656 042737 1 1140 BIC T, $GDDAT 
054 013737 001346 001142 MOV RASS SBDDAT 
501 054672 062716 000004 ADD 
502 054676 112776 000332 000000 MOVB a3h5° BSP) 
503 054704 162716 000002 SUB #2, 
504 054710 004736 JSR PC pa(sP)+ 
309 O34712 162716 000010 SUB #16, (SP) 


6 001350 RMDS 
6 167677 BIC #°C<PIP' MOL! VV> 
510 05 022726 010100 CMP #MOL! VV, (SP)+ 
31 054732 001522 BEQ 46$ 
1 


43$: 
3LOOK FOR UNEXPECTED CHANGES IN oeres STA 


SEQ 0215 


i1s OFFSET ON?? 
TEXPECTED STATUS 


sRECEIVED STATUS 

;MOVE SP TO USER'S ERROR CALL 
sWRITE ERROR NUMBER IN CALL 
3MOVE SP TO RETURN IF ERROR 
REPORT ERROR AND RETURN 
7MOVE SP TO NO ERROR 


; REPORT ERROR IF ‘DPE’ = 1 


sDATA PARITY ERROR?? 
TEXPECTED STATUS 


sRECEIVED STATUS 
SMOVE SP TO USER’S ERROR CALL 
TE ERROR NUMBER 


3 WR ERROR 
3MOVE SP_TO RETURN IF ERROR 

;REPORT ERROR AND RETURN 
;MOVE SP TO NO ERROR 


sTEST FOR WRITE CLOCK eye REPORT ERROR IF ‘WCF'* = 1 
T #WCF ,RMERTI 21s 


S (Wer®” SET?? 
eERPECTED STATUS 
RECEIVED STATUS 
3MOVE SP TO USERS ERROR CALL 
WRITE ERROR NUMBER 
SMOVE SP TO RETURN IF ERROR 


ZREPORT ERROR AND RETURN 
:MOVE SP TO NO ERROR 


eIS ‘ur SET?? 


<ERPECTED STATUS 


sRECEIVED STATUS 

MOV Te Ene TO USERS | aaa CALL 

MOVE - 70 RETURN. IF ERROR 
T ERROR AND RETURN 

ROVE. SP TO NO ERROR 


TUS 

K DRIVE STATUS 
gp CLEAR DONT CARES 
ils gphive STATUS OK?? 


sREPORT ERROR IF POSITIONING IN PROGRESS AND NO SEEK INCOMPLETE ERROR, 


Kk 1 
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514 31.€, PIP = 1 AND SKI = 0 Sa 

515 054 032737 020000 00135 BIT #PIP,RMDSI 31S "PIP" SET?? 

516 054742 001430 BEQ 44$ :NOE! 

517 054744 032737 040000 001400 BIT #SK1,RMERZI $c SKI" ERROR REPORTED?? 
518 054752 901024 BNE 4 ‘VES DONT REPORT PIP 

519 054754 013737 001350 001140 MOV RMDSI,$GDDAT EXPECTED ae aTUS 

520 054762 042737 920000 001140 BIC #PIP, $GDDAT 

521 054770 013737 001350 001142 MOV RMDSI,$BDDAT ;RECEIVED STATUS 

22 054776 062716 900004 ADD #4, (SP) MOV VE SP TO USERS ERROR CALL 
523 055002 112776 000333 000000 MOVB #333,a(SP) E ERROR 

524 055010 162716 000002 SUB #2, (SP) MOVE SP TO RETURN IF ERROR 
525 055014 004736 JSR PC.a(SP)+ [REPORT ERROR AND RETURN 
526 055016 162716 000010 SUB #10,(SP) . ‘MOVE SP TO NO ERROR 

527 055022 000240 NOP 

328 055024 44$: 

530 :REPORT ERROR IF MEDIUM IS NOT ON LINE AND OPI ERROR WAS NOT 
531 SREPORTED, 1.€.. MOL = OPI = 0 

532 055024 032737 010000 001350 BIT #MOL .RMDSI 31S MEDIUM ON LINE?? 

533 055032 901027 BNE TYES!! 

534 055034 032737 020000 001352 BIT #OPI,RMER11 [WAS OPI ERROR REPORTED?? 
535 055042 001023 BNE YES! ! 

536 055044 013737 001350 001140 MOV RMDSI.$GDDAT EXPECTED STATUS 

537 055052 052737 010000 001140 BIS $GDDAT 

538 055060 013737 001350 001142 MOV RMDSI,$BDDAT RECEIVED Sree 

539 055066 062716 000004 ADD #4, (SP) MO USER’S ERROR 
540 055072 112776 000334 000000 MOVB 4#334,a(SP) thie 

541 055100 162716 000002 SUB #2, (SP) ;MOVE St ron RETURN IF ERROR 
542 055104 004736 JSR PC a(sP)+ “REPORT ERROR AND RETURN 

543 055106 162716 000010 SUB #10,(S *MOVE SP TO NO ERROR 

344 055112 45$: 

546 sREPORT ERROR IF VOLUME IS NOT VALID AND "IVC’’ ERROR WAS NOT 
547 sREPORTED, I.€., VV = IVC = 0 

548 055112 032737 000100 001350 BIT #WV.RMDSI 31S VOLUME VALID?? 

549 055120 001027 BNE 4 YES!! 

550 055122 032737 010000 001400 BIT #IVC,RMER2ZI [WAS IVC ERROR REPORTED?? 
551 055130 001033 BNE YES!! 

552 055132 013737 001350 001140 MOV RMDSI.S$GDDAT EXPECTED STATUS 

553 055140 052737 000100 001140 BIS #VV,S$GDDAT 

554 055146 013737 001350 001142 MOV RMDSI,$BDDAT  ;RECEIVED STATUS 

555 055154 062716 000004 ADD #4, (SP) SMOVE SP TO USERS ERROR CALL 
556 055160 112776 000335 000000 MOVB #335,a(SP) ‘WRITE ERROR NUMBER 

557 095166 162716 000002 SUB #2, (SP) ;MOVE SP _TO RETURN IF ERROR 
558 055172 004736 JSR PC ga(SP)+ REPORT ERROR AND RETURN 
559 055174 162716 000010 SUB #16,(S cMOVE SP’ TO NO ERROR 

360 055200 46S: 

5 zAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND 

266 055200 062716 000004 ADD SP) sMOVE SP TO ERROR CALL 

564 055204 105776 000000 TSTB a <&p) SANY ERROR?? 

565 055210 001403 BEQ i 

566 055212 062716 000004 ADD rH (SP) *YES = MOVE SP TO ERROR RETURN 
567 055 16 00040 BR 

368 055220 162716 000004 47$: SUB #4, (SP) :MOVE SP TO NO ERROR RETURN 


570 055224 000207 48$: RTS PC sRETURN TO USER 
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DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE 


sr ae 000000 49$: «WORD 
73 055250 000000 50$: » WORD 


sERROR FLAGS 
ZTEMPORARY STORAGE 


SEQ 0217 


C 
s 


m1 ‘ 
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STATIC DRIVE STATUS CHECK SUBROUTIN S) 


-SBTTL STATIC DRIVE STATUS CHECK SUBROUTINE 
sTHIS SUBROUTINE LOOKS FOR UNEXPECTED get g: IN DRIVE 


STATUS. SUCH AS THE DRIVE LOSING VOLUME VALID. THE SUBROUTINE 
BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE 


THE FOLLOUING CONDITIONS ARE TESTED AND REPORTED AS ERRORS 


VIA USER 
000010 SUB #10, (SP) :MOVE SP BACK TO NO ERROR RETURN 
055354 1$: 


sREPORT AN ERROR IF VOLUME VALID IS NOW ZER ae “Ivc’* = 0 
001350 BIT #VV.RMDSI ; 
362 001030 BNE 2s 3NO 


=] 
w 
m 
ae 
mo 
SS 
oo 
=z 
S 


” 


4 

a 

6 

7 

8 

1 

11 : .MOL = 0, INDICATES DRIVE WENT OFFLINE, NOTE 

12 ?THAT MOL IS ASSUMED TO HAVE BEE 

13 : -VV = 0, INDICATES THE | DRIVE “Lost VOLUME VALID 

14+ : "PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER 

15 ; ~SKI = 1, INDICATES THE D DRIVE HAS AN UNEXPECTED SKI ERROR 
16 ; “DVC = 1. INDICATES AN UNEXPECTED DEVICE FAULT 

18 ;THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER. 
20 711) «JSR PC, STCDRVSTS 

21 : BR 239 RETURN HERE IF NO ERROR 

22 J : NOP RETURN HERE TO REPORT AN ERROR 
23 : ERROR ERROR NUMBER DEFINED BY SUB 
24 : JSR PC,a(SP)+ GO BACK TO SUB FOR MORE ERROR CHECKS 
33 22? RETURN HERE IF NO MORE ERRORS 
37 055232 STCDRVSTS: 
29 :CLEAR USER'S ERROR CALL 

30 055232 062716 000004 ADD #4, (SP) ;MOVE SP TO USER'S ERROR CALL 

31 055236 105076 000000 CLRB asp P) sCLEAR ER 

32 055242 162716 000004 SUB #4, (SP) | iMOVE SP BACK TO NO ERROR RETURN 
33 3SEE IF SyeL = Ww = 1, AND PIP’ = 

34 055246 013746 001350 MOV RMDSI,-(SP) sPUT DRIVE STATUS ON STACK 

35 055252 042716 147677 BIC #°C<PIP!MOL! VV>, (SP) 

36 055256 022726 010100 CMP WMOL!VV.(SP)+ °sARE MOL,VV AND PIP 0.K.?? 

Hi 055262 001524 BEQ 3s YES! ! 

39 :REPORT AN ERROR IF MOL = 0 AND “OPI'' = 0 

40 055264 032737 010000 001350 BIT #MOL .RMDSI 31S MOL ON 2? 
41 055272 001030 BNE 1$ 3YES!! 
42 055274 032737 020000 001352 BIT #OP1,RMERTI WAS OPI" SET?? | 

43 055302 001024 3NE 1$ YES-DONT REPORT ‘MOL"’ = 0 

44 055304 013737 001350 001140 MOV RMDSI SGDDAT | 2EXPECTED STATUS 
45 055312 052737 910000 001140 BIS L,$GDDAT 
46 055320 013737 001350 001142 MOV RMDS I SODDAT :RECEIVED STATUS 
47 055326 062716 000004 ADD #4, (SP) *MOVE SP TO USER'S ERROR CALL 
48 055332 112776 000207 000000 MOVB #207 a(sP) [WRITE ERROR NUMBER IN CALL 
49 055340 162716 000002 SUB #2, zMOVE SP TO RETURN FOR ERROR 
30 055344 004736 JSR PC.a(SP)+ REPORT ERROR VIA 

52 

i 

55 

56 

57 


oo 
ww 
heal 
a 
w 
rs 
=) 
w 
N 
Ww 
N 
: 


43 ¥ a 7 


N 
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CZRNEAO RM80 F 
STATIC DRIVE STATUS CHECK SUBROUTIN 
58 055364 032737 010000 001400 BIT #IVC,RMER2I sWAS “IVC SET22 
59 0933 2 001024 BNE 2$ *YES=DONT REPORT “‘Vv"' = 0 
60 055374 013737 001350 001140 MOV RMDSI,$GDDAT EXPECTED STATUS 
61 055402 052737 900109 001350 BIS r 
6¢ 055410 013737 001350 001742 MOV RMDSI,$BDDAT RECEIVED STATUS pan 
63 055416 062716 000004 ADD [MOVE SP TO USER'S ERROR CALL pcan 
64 05542¢ 112776 000210 000000 MOVB #10 a(sP) [WRITE ERROR NUMBER IN CALL 
65 055430 162716 000002. SUB #2, [MOVE SP TO RETURN FOR ERROR 
66 055434 904736 JSR PC StsP)+ [REPORT ERROR VIA USER 
67 055436 162716 000010 SUB #16, (SP) *MOVE SP BACK TO NO ERROR 
68 055442 000240 NOP 
69 055444 2s: 
71 ;REPORT AN ERROR IF DRIVE IS OFF CYLINDER AND ‘‘SKI"' = 0 
2 055444 032737 020000 001350 BIT #PIP,RMDSI 31S ‘DRIVE OFF CYLINDER? 
73 055452 001430 BEQ 3$ :NOE! oe 
74 055454 032737 040000 001400 BIT #SKI,RMER2I ‘SkI"* SET2? 
75 055462 901024 BNE 3$ <VES-DONT REPORT 'PIP'' = 1 
76 055464 013737 001350 001140 MOV RMDSI,$GDDAT EXPECTED STATUS 
77 055472 042737 020000 001140 _ BIC #PIP, $GDDAT 
78 055500 013737 001350 001142 J MOV RMDSI,$BDDAT RECEIVED STATUS 
79 035506 062716 000004 J” AbD 4,(S *MOVE SP TO USER'S. ERROR CALL 
80 055512 112776 000211 000000 £ MOVB #211,a(SP) [WRITE ERROR NUMBER IN USER'S CALL 
81 055520 162716 000002 SUB #2, (SP) [MOVE SP TO RETURN FOR ERROR 
82 055524 004736 JSR PC.a(SP)+ [REPORT ERROR VIA USER 
83 055526 162716 000010 SUB #10, (SP) “MOVE SP TO NO ERROR RETURN 
84 055532 000240 NOP 
85 055534 38: 
$s :SEE IF ‘'SKI'' = “DVC 
88 055534 013746 001400 MOV RMER? *PUT ERROR REG 2 ON STACK 
89 055540 042726 13757 BIC grERZI = (SP) (SP5+ 
90 055544 001460 BEQ 6S SBRANCH IF NO ERROR 
91 055546 4$: 
38 :REPORT AN ERROR IF THERE IS A DEVICE FAULT 
4 055546 032737 000200 001400 BIT #DVC,RMER2I Y DEVICE FAULT?? 
% 035586 13737 001400 001140 MOV RMER21 , SGDDAT iW rep STATUS 
97 055 7 200 1140 BIC #DVC, SGDDAT 
98 0555 13737 0014 1142 MOV RMER21 , SBDDAT sRECEIVED STATUS 
99 05 716 ADD #4, (SP [MOVE SP TO USER'S CALL 
5 11277 12 000000 MOVB wentats a(SP) SWRITE NUMBER OF ERROR IN CALL 
1 12 1627 SUB [MOVE SP TO RETURN FOR ERROR 
4 JSR £1 aC) [REPORT ERROR VIA USER 
162716 000010 SUB wibeCs SMOVE SP BACK TO NO ERROR 
55606 24 NOP 


5$: 
REPORT AN ERROR ie “SkI"' = 1 
BIT 


et a eh eh et et et eB 
rx SRLESR 


7 7 040000 001400 gi! SKI ,RMER2I 31S THERE A SEEK INCOMPLETE ERROR 
; 1 114 MOV RMER21,$GDDAT EXPECTED STATUS 
1 , 114 BIC aSkI AT 
i 1 114 mov Re], SBDDAT GRECEIVED STATUS, oer oat 
1 are 000000 MOV a5, (5) a(sP) [WRITE ERROR NUMBER IN USER'S ERROR CALL 












> 


Sees <= 
ERSON on 


0 


oe 
STATIC DR 


Vw 


~“ 
Navas 
CLOO 


CONAULSWNODONQuU 
~“ 


oO 
Sooooooo 
MMVIII) 
SSS 
Ww 
Nm 


- 
Tl 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


C 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 


N 
g 





162716 000002 
162716 000010 
40 


16 000004 
105776 000000 


062716 000004 
000004 


6$: 


AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED 
#4, (SP) ‘ths E SP TO USER'S ERROR CALL 
SAN ERROR DETECTED?? 


yes: = MOVE SP TO USER'S ERROR RETURN 


7S: zNO = MOVE SP TO NO ERROR RETURN 


8$: 


SUB 
JSR 
SUB 


“NOP 
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TATUS CHECK SUBROUTINE 


#2, (SP) 
PC-a(SP)+ 
#10, (SP) 


a(SP) 
#4, (SP) 
#4, (SP) 
PC 


sMOVE SP TO REN cen ERROR 
;MOVE SP BACK TO NO ERROR 


REPORT ERROR V 


sRETURN TO USER 








mn 
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SAVE AND RESTORE RO-R5 ROUTINES 
1 -SBTTL SAVE AND RESTORE RO-RS ROUTINES 

3 FAAAEAARRAAAEAARRAERAREREEEEREREEAEREEREERRRERRRERRERAEREREREREREARE 

at RO-R5 

3* SAVREG 

: *UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 

3 *TOP---(+16) 

g* +2--=(+18) 

3% +4---R5 

3% +6---R 

3% +B8---R 

3%410---R2 

3%4+14---R0 
055736 SSAVREG: 
055736 010046 MOV RO,-(SP) 3zPUSH RO ON STACK 
O33788 010146 OV R1,~(SP) 7zPUSH R1 ON STACK 
055742 010246 MOV pets szPUSH R2 ON STACK 
055744 B1oz2e MOV R3,-(SP) 33PUSH ON STACK 
055746 010446 MOV R4,°(SP) 3ZPUSH R4 ON STACK 
055750 AY F994 MOV R5,~(SP) :zPUSH RS ON STACK 
055752 016646 000022 MOV 2(SP) ,-(SP) VE PS OF MAIN FLOW 
055756 016646 000022 MOV 2(SP) ,-(SP) szSAVE PC OF MAIN FLOW 
055762 016646 Bp 00SS MOV 2(SP) ,-(SP) szSAVE PS OF CALL 
055766 016646 00002 MOV 2(SP) ,-(SP) szSAVE PC OF CALL 
055772 000002 PT] 

5 *RESTORE RO-RS 

3* 3 

8 RESREG 
055776 SRESREG: 
055774 012666 000022 MOV (SP)+ (SP) szRESTORE PC OF CALL 
056000 012666 B00S5 MOV (SP)+,22(SP) ssRESTORE PS OF CALL 
056004 012666 000022 MOV (SP)+,22(SP) ssRESTORE PC OF MAIN FLOW 
056010 1SO88 000022 MOV (SP)+,22(SP) szRESTORE PS OF MAIN FLOW 
056014 012605 MOV (SP)+,R 83 STACK INT 
05601 12 MOV (SP)+,R4 $3 STACK INTO R4 
056020 012603 MOV (SP)+, POP STACK INTO R 
0560 12602 MOV (SP)+, 37:POP STACK INTO R 
056024 01 1 MOV (SP)+,R 33;POP STACK INTO R 
b208 6 01 ard} (SP)+,RO ::POP STACK INTO RO 


mo 
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BINARY TO ASCII AND TYPE ROUTINE 


~SBTTL BINARY TO ASCII AND TYPE ROUTINE 


Hen L LL lslelalelalalbaladabelebalal 
3*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-B1T 
:*BINARY@ASCII NUMBER AND TYPE IT. 


3* e 
: V NUMBER,-(SP) § ;;NUMBER TO BE TYPED 
oe TYPBN +: TYPE IT 
056032 010146 STYPEN: MOV R1,-(SP) : SAVE R1 ON THE STACK 
056034 016601 000006 MOV 6(SP) ,R1 *:GET THE INPUT NUMBER 
05604 900 $i ‘SEC ZSET "'C'' SO CAN KEEP TRACK OF THE NUMBER OF BITS 
056042 112737 000060 056104 1$: mMOVB «#0, SBN 7:SET CHARACTER TO AN ASCII "0". 
056050 006101 ROL R1 +:GET THIS BIT 
05605 001406 BEG 2$ DONE? 
056054 1055 56104 ADCB = SBIN +:NO==SET THE CHARACTER EQUAL TO THIS BIT 
056060 104401 056104 TYPE  ,$BIN 3:60 TYPE THIS BI 
056064 900241 CLC T:CLEAR "'C’’ SO CAN KEEP TRACK OF BiTS 
05 65 BR 1$ 3:60 DO T 
0560 12601 2$: MOV (SP)+,R1 +:POP THE STACK INTO R1 
056072 016666 090002 000004 MOV 2(SP) .4(SP) SSADJUST THE STACK 
056100 01261 MOV (SP)+, (SP) 
056102 00000. RTI ::RETURN TO USER 
056104 000 $BIN: .BYTE 0,0 S:STORAGE FOR ASCII CHAR. AND TERMINATOR 


mo 


E 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
~SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


: [asnense er a tae aaa cane Oe i Oe 
[®THIS ROUTINE IS USED TO CHANGE A 16-B1T 9 INARY NUMBER TO A 5-DIGIT 
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON OUHETHER THE 
a . POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 

s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
So ages WITH SPACES. 





7* MOV NUM, -(SP) ::PUT THE BINARY NUMBER ON THE STACK 
ie TYPDS 7:G0 TO THE ROUTINE 
056106 STYPDS: 
056106 9 MOV RO,-(SP) :3PUSH RO ON STACK 
056110 10146 MOV R1.=(SP) PUSH R1 ON STACK 
056112 010246 MOV R2,-(SP) PUSH R2 ON STACK 
056114 010346 MOV R3,-(SP) PUSH R3 ON STACK 
056116 010546 MOV R5.=(SP) PUSH R5 ON STACK 
056120 012746 020200 MOV #20200,-(SP) +:SET BLANK SWITCH AND SIGN 
036124 016605 000020 MOV 20(SP) RS 33GET THE INPUT NUMBER 
056130 100004 BPL 1$ ":BR IF INPUT IS PO 
056132 005405 NEG R5 [:MAKE THE BINARY NUMBER POS. 
056134 112766 000055 000001 MOVB 3s # "=, 1 (SP) [:MAKE THE ASCII NUMBER NEG. 
056142 903000 1$: CLR RO 7:ZERO THE CONSTANTS INDEX 
056144 01270 56322 MOV #SDBLK,R3 *:SETUP THE OUTPUT POIN 
056150 112723 rind MOVB so #*— , (R3) + ESET T THE FIRST UT ARACTERT TO A BLANK 
056154 005002 2$: CLR R TI CLEAR BCD NUMBER 
056156 016001 056312 MOV SDTBL(RO),.R1  ::GET THE CONSTANT 
056162 160105 3$: SUB R1,R5 3 3FORM. THIS BCD DIGIT 
056164 902402 BLT [:BR IF DONE 
0561 520 INC R2 tS INCREASE THE BCD DIGIT BY 1 
056170 000774 BR 3$ 
056172 060105 4$: ADD R1,R5 s:ADD BACK THE CONSTANT 
056174 00570 TST R2 *:CHECK IF BCD DIGIT=0 
05617 100 BNE 5¢ FALL THROUGH IF 
05 10571 TSTB = ¢ SP) 3ST TLL DOING LEADING 0°S? 
056202 10040 BMI 7$ [:BR IF YES 
056204 10631 5$: ASLB = (SP) 7:MSD? 
0 1 BCC <3 ::BR IF NO 
9 10 11 1 177777 MOVB MP, “1(R3)  ::YES=-=-SET THE SIGN 
1 05 g$: BIS ‘ Re T:MAKE THE BCD DIGIT ASCII 
0 5 0 : BIS a °R +:MAKE IT A SPACE IF NOT ALREADY A DIGIT 
0 11 H MOVB R2, (R5)+ PUT THIS CHARACTER IN THE OUTPUT BUFFER 
0 TST (RO) + 7: JUST THEREMENT ING 
0 000010 CMP RO. M10 S3CHECK THE TABLE INDEX 
9 BLT 2:60 DO THE NEXT DIGIT 
4 BGT 7:60 TO EXIT 
056242 01 R5.R2 °:GET THE LSD 
0 $4 BR 7:G0 CHANGE TO ASCII 
9 4 7 8$: TsTB (SP) + z2WAS THE LSD THE FIRST NON-ZERO? 
05625 1166 a 177777 177776 MOVB TA iSP) «= 2(R3) +: YES=-SET THE SIGN FOR TYPING 
10501 9$: CLRB ) [:SET THE TERMINAT 
1260 MOV (SP)+,R [:POP STACK INTO R 
1 603 MOV (SP)+-R *:POP STACK INTO R 
5 66 1260 MOV (SP}4.R $:POP STACK INTO R 
0 012601 MOV (SP)+-R +:POP STACK INTO R 





F 2 
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T BINARY TO DECIMAL AND TYPE ROUTINE 
056272 01 2600 MOV (SP)+,RO ::POP STACK INTO RO 
056074 104401 05632 TYPE SDBLK t:NOW TYPE THE NUMBER 
056 016666 000004 MOV 5(SP) ,4(SP) S:ADJUST THE STACK 
bee 1 s560S RTL (SP) +, (SP) RETURN TO USER 
0363 2 SDTBL: 10000. 

056314 001750 100 

056316 000144 : 

056320 000012 10. 

056322 $DBLK: .BLKW 4 
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BINARY TO OCTAL (ASCII) AND TYPE 


~ 
—s 
On 


==RS=S29==5 
we oO 
sesSerrred 


—_ = 
etetete ty ted te tet 


Co— 


mew 
™ 
a 


056556 
177770 


056555 


5655 
5655 
056554 


~SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


RARRARAAARAAAARAAAAAAAEAERAAAAAKKAeKARKAKeeteeeAteKeKeteeeeeee 

S*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
(ASCII) NUMBER_AND TYPE IT. 

yt esi HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


*0CTAL 
3 


> CALL: 


eeeennenenees 
eS 


MOV 


TYPON 


NUM, =(SP) 


NUM, =(SP) 


;;NUMBER TO BE TYPED 
ao mee TYPEOUT 


FOR NUMBER OF DIGITS TO TYPE 


OR 
331=TYPE LEADING ZEROS 
320=SUPPRESS LEADING ZEROS 


TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ST YPOS OR $TYPOC 


;;NUMBER TO BE TYPED 
7zCALL FOR TYPEOUT 


{#STYPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


STYPOC: 
STYPON: 


1$: 
2$: 


3$: 


4$: 


MOV 


NUM, =(SP) 


@(SP) ,-(SP) 


1 (SP) oSOFILL 
(SP)+,SOMODE +1 


£9 -RF op 


OF IEE tier 
ta oRS 
R 


#177770 ,R3 
&y 


84 
py) 
R4 


33NUMBER TO BE TYPED 
33CALL FOR TYPEOUT 


;PICKUP THE MODE 
;LOAD ZERO FILL SWITCH 


SINUMBER OF DIGITS TO TYPE 


ADJUST RETURN ADDRESS 
Ss 
SET FOR SIX(6) DIGITS 


SAVE _IT F 

;GET 

LEAR THE OUTPUT WORD 
ROTATE MSB INTO ‘‘C*’ 


PICKUP THE INPUT 
:60 0 
[FORM THIS DIGIT 


See te Se See Se Se 
“e@Qe te te te Sete ® 


ET THE ZERO eit SWITCH 
me ITERATION COUNT 


RS 
THE NUMBER OF DIGITS TO TYPE 
SUBTRACT iy FOR MAX. ALLOWED 
THE ZERO FILL SWITCH 
NUMBER 


SEQ 0225 


——- 











On & 


056556 


AND TYPE 


5 
ae 
56554 


000002 000004 
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8$: -BYTE 


SOCNT: Y 
SOFILL: .BYTE 
SOMODE: .WORD 


3 
+ 
ee 
on 
nn 
2 


SEQ 0226 


3 sRETURN 

33STORAGE FOR ASCII DIGIT 

33 TERMINATOR FOR TYPE ROUTINE 
33OCTAL DIGIT COUNTER 

33ZERO FILL SWITCH 

33NUMBER OF DIGITS TO TYPE 


—o- 
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TYPE ROU 


105737 
100002 


= 
Reet 
Ran 
ROR 


Ww 


S88 
Base 


S 
3 


057110 


Bon77 


001170 
000001 


5711 


001242 


001243 


001243 


-SBTTL TYPE ROUTINE 


See e ee eee eee AATTT MESEAAE WEGRARE GREAT TORRIMATE OT AO | 


$ SROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


7*THE ROUTINE wit INSERT _A_ NUMBER OF 
3 *NOTE1: L_ CONT A 


3 *NOTE@: 
3 *NOTES: 
Sf 


7$: 


SEQ 0227 


L CHARACTERS AFTER A LI 


NUL NE FEED. 
NS i CHARACTER 9 BE USED AS THE FILLER CHARACTER. 


SFILLS CONTAINS T 
SFILLC CONTAINS 


tSCALL: 
:*1) USING A TRAP INSTRUCTION 
TYPE »MESADR 


#APTCSUP , SENVM 
{20% -(SP) 


1B: a 
se 
cast (SP) 


#CRLF , (SP) 
5$ 
(SP)+ 


orca 


PC, STYPEC 
SFILLC, (SP)+ 


SNULL ,~(SP) 
issn 
Pe srvpec 


— 


HE NUMBER OF FILLER CHARACTERS REQUIRED. 
THE CHARACTER TO FILL AFTER. 


z3MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


e318 = A TERMINAL? 
:EHALT HERE IF NO TERMINAL 


ee RO 
:GET ADDRESS OF ASCIZ STRING 
3 NG IN AP 
*NO,GO CHECK FOR APT CONSOLE 
3SPO MESSAGE TO APT 
*NO,GO CHECK FOR CONSOLE 
TUP MESSAGE ADDRESS FOR APT 

POOL MESSAGE To APT 

SSAGE ADDRESS 

T OLE SUPPRESSED 
HARACTER TO BE E_TYPED ONTO STACK 


PU 
BR IF IT ISN'T THE T NA 

aM ot TERMINATOR POP IT OFF THE STACK 
sADJ 


33BRANCH IF NOT <CRLF> 


:POP wit Pauly 
SITYPE A CR AND L 


;;CLEAR_ CHARACTER COUNT 
7 3GET NEXT CHARACTER 

ve THIS CHARACTER 

T TIME FOR FILLER CHARS.? 
T NEXT CHAR. 
FILLER CHARS. NEEDED 

L CHAR. 

NULL NEED TO BE TYPED? 
NO--GO ‘a THE NULL OFF OF STACK 
NOT COUNT AS A COUNT 


=o} 
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sHORIZONTAL TAB PROCESSOR 


05674 112716 gs: MOVBs#"-_, (SP) 
05675 0047 677 $: JSR PC -STYPEC 
056756 132737 057110 BIT 4 *SCHARCNT 


aes te oe Sey, 
§26768 Hite : 2s 

05677 | STYPEC: 

056772 105777 122162 TSTB © aSTKS 
056776 100022 BPL 10$ 

057000 017746 122156 MOV a$TKB,-(SP) 
057004 042716 1 600 BIC #177600, (SP) 
057010 122716 00002 CMPB Os SXOFF,, (SP) 
057014 001012 BNE 

057016 101$: 

057016 105777 122136 TSTB asTKs 
057022 100375 BPL 101$ 
057024 117716 177508 MOVB = aSTKB, ( 
057030 042716 1776 BIC iit (Sp) 
057034 122716 CMPB ss #SXON, (SP) 
057040 001366 BNE 101$ 

05704 102$: 

057042 005726 TST (SP)+ 
057044 10S: 

057044 105777 122114 TSTB asTPs 
057050 100375 BPL 

057052 116677 000002 122106 MOVB dtSP) aSTPB 
05 1207 000015 000002 CMPB ss CR, 2( SP) 
057066 00100 BNE 1$ 

057070 105037 057110 CLRB § $CHARCNT 
057074 000406 BR STYPEX 
057076 122766 000012 000002 1S: CMPB es ML, 2( SP) 
057104 001402 BEQ TYPEX 
S18 dues souncntiNtee 
057112 000207 STYPEX: RTS PC 


SEQ 0228 C 


g sRERUACE TAB_WITH SPACE 
;TYPE A SPACE 
;;BRANCH IF NOT AT 


;TAB S 
;POP SPACE OFF STACK 
33GET NEXT CHARACTER 


33 CHAR i BUFFER? 


3GET CHAR 
3iSTRIP as a BITS 
CHAR _XOFF 


3sWAIT FOR CHAR 

33GET CHAR 

s3STRIP_IT 

33WAS IT XON? 

338R IF NOT 

33FIX STACK 

WAIT UNTIL PRINTER IS READY 


33LOAD CHAR TO BE TYPED INTO DATA REG. 
3321S CHARACTER A CARRIAGE RETURN? 


[BRANCH I 
ss YES==CLEAR CHARACTER COUNT 
Is CHARACTER A LINE FEED? 


; sBRAN 
: s COUNT THE CHARACTER 
;;CHARACTER COUNT STORAGE 


fk 
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-SBTTL SCOPE HANDLER ROUTINE 


ning tay enema a yee yen rarity Kyieepggeueint intl 
:RTHIS ROUTINE CONTROLS THE 3 OF ee tte IT WILL INCREMENT 

3 AND LOAD THE TEST wit pte TNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
z*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY ¥<15: 08> 

ieTHE Si SuITCH thd ¢ °° PROVIDED BY THIS ROUTINE ARE: 


; L T 
a eeiiiet INHIBIT ITERATIONS 
7 *Sw09= L RROR 
3 #SW0B=1 LOOP ON TEST IN SWR<7:0> 
;* 
3* SCOPE ::SCOPE=I0T 
057114 SSCOPE: 
057114 104410 CKSWR szTEST FOR CHANGE IN SOFT-SWR 
057116 004737 057662 JSR PC, STOP 
057122 032777 040000 122024 18: BIT #B1T14,aSWR i3L00P ON N PRESENT TEST? 
057130 001402 BEQ 9$ 
057132 000137 057562 ~ JMP SOVER Aa OVER SCOPE ROUTINE 
:WAMANSTART OF CODE FOR THE XOR TESTERM##AS 
057136 000416 $XTSTR: BR 6$ ::1F RUNNING ON THE SOR’. TESTER CHANGE 
+: THIS INSTRUCTION TO A =240) 
057140 013746 000004 MOV aFERRVEC (SP) 2:SAVE THE CONTENTS OF THE ERROR VECTOR 
057144 012737 057164 000004 MOV ERRVEC 33SET FOR TIMEOUT 
057152 005737 177060 TST oy 906 STIME OUT ON XOR? 
057156 012637 000004 MOV (SP) +, a#ERRVEC ; RESTORE THE ERROR VECTOR 
057162 000561 BR 7:G0 TO THE NEXT TEST 
057164 022626 5$: CMP (SP) +, (SP)+ *:CLEAR THE STACK AFTER A TIME OUT 
057166 012637 000004 MOV (SP) +, a#ERRVEC 3 ERESTORE THE ERROR VECTOR 
057172 000521 BR 7$ “LOOP ON THE PRESENT TEST 
057174 6$:;4AAAHEND OF CODE FOR THE KOR’ TESTERAAMAR 
057174 032777 000400 121752 BIT 1T08,aS 33LOOP_ON On SPEC. TEST? 
057202 001421 BEQ e ::BR IF NO 
057204 005046 CLR =(SP) cICLEAR A TEMP. LOCATION 
057206 117716 121742 MOVB = aSWR, (SP) t:PICKUP THE DESIRED TEST NUMBER 
057212 001414 BEQ 8$ +:BRANCH IF BAD TEST NUMBER IN SWR 
057214 022716 000031 CMP #31, (SP) =: CHECK THE NUMBER IN THE SWR 
057220 002411 BLT S:BRANCH IF TEST NUMBER IS OUT OF RANGE 
057222 011637 001116 : MOV (SP) ,$TSTNM SS UPDATE THE TEST NUMBER 
057226 005316 DEC (SP) S:BACKUP BY ONE 
057, 316 ASL (SP) [:SCALE THE TEST NUMBER AS AN INDEX 
05 16 057 ADD #S$SWOBTBL,(SP) ::FORM THE ADDRESS OF TEST POINTER 
5 1363 112 MOV a(SP)+,$LPADR ::SET LOOP ADDRESS TO DESIRED TEST 
057242 547 BR SOVER +:G0 LOOP ON THE TEST 
057244 005726 8$: TST (SP) + T:CLEAN THE BAD TEST NUMBER OFF OF THE STACK 
057 46 1057 001117 23: TST ERFLG z3HAS AN on ED? 
057254 $0999 177777 060300 CMP #1 CPSAVE *:SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 
057262 001455 BEQ 2008 +:KICK AROUND ROUTINE IF SO 
§37580 O1373 037306 9 BOTA TT ee OM TADe RETURN ADDRESS 
037 76 ie 177766 asta MOV 1778; CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
05 12737 177777 060300 2000$: MOV fi- < tps AVE z2SET CPU ERROR REGISTER TIMEOUT INDICATOR 
oor ae 1356 057322 MOV #2001$, (SP) [:SETUP RETURN ADDRESS 


ee ' 
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057320 cone RTI 
057 012637 000004 2001$: MOV (SP)+,ERRVEC  ;;RESTORE CONTENTS OF ERROR VECTOR 
057 Pe 0 2737 177777 060300 2002S: cup 1 ,CPSAVE 33SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
eget? 032737 000001 060300 BIT #81700, CPSAVE tISEE IF THE POWER MONITOR BIT IS ON 
057 001424 BEQ 2003$ BRANCH T 0 CONTINUE ROUTINE IF CLEAR 
057346 0427 7 000001 177766 BIC #B81T00,177766  ::CLEAR THE BIT FOUND TO BE SET 
057354 013746 001154 MOV SWR,=(SP) 33SAVE SWR ADDRESS 
57 01764 000000 MOV 3(SP) ,-(SP) SSAVE SWR VALUE 
57 012737 000176 001154 MOV #176,SWR $EGET SOF TWARE SWR ADDRESS 
057372 011677 121556 MOV (SP) aSWR +:GET CURRENT SWR VALUE 
057376 042777 001000 121550 BIC #B1T09,aSWR 33DON'T ALLOW LOOP ON ERROR ON THIS ERROR 
057404 104177 EMT 17 [CALL SPECIAL POWER FAIL BIT ERROR CALL 
057406 012676 000000 MOV (SP)+,a(SP) STRESTORE SWR TO ORIGINAL VALUE 
057412 012637 001154 te MOV (SP)+,SWR S:RESTORE SWR ADDRESS 
057416 123737 001131 001117 CMPB = SERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
057424 101015 BHI [:BR IF NO 
057426 3277? 001000 121520 BIT #B1T09,aSwWR [:LOOP ON ERROR? 
057434 001404 | BEQ 7:6R IF NO 
7436 013737 601124 001122 7S: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
057444 46 BR SOVER 
057446 105037 001117 4$: CLRB  $ERFLG ZERO, THE ERROR FLAG 
057452 005037 001206 CLR STIMES 7:CLEAR THE NUMBER OF ITERATIONS TO MAKE 
057456 000415 BR 1$ s:ESCAPE TO THE NEXT TEST 
057460 032777 004000 121466 3S: BIT #B1T11,aSWR 33 INHIBIT JTERATI 
057466 001011 BNE 1$ F YES 
057470 005737 001230 TST SPASS 3i1F FIRST PASS OF PROGRAM 
057476 001406 BEQ 1$ INHIBIT ITERATIONS 
057476 005237 001120 INC SICNT : EINCREMENT ITERATION COUNT 
057502 023737 001206 001120 CMP STIMES,SICNT  33CH ECK T HE NUPBER OF ITERATIONS MADE 
057510 902024 BGE SOVER [BR IF MORE ITERATION REQUIRED 
057512 012737 000001 001120 1$: MOV #1,$1CNT j REINITIALIZE THE ITERATION COUNTER 
057520 013737 057576 001206 MOV SMXCNT,STIMES ::SET NUMBER OF ITERATIONS TO DO 
057526 105237 001116 SSVLAD: INCB $TSTNM S:COUNT TEST NUMBERS 
057532 113737 001116 001226 MOVB STSTNA. STESTIN 7:SET TEST NUMBER IN APT MAILBOX 
057540 011637 001128 MOV (SP) ,$LPADR t:SAVE SCOPE LOOP ADDRESS 
57544 011637 001124 MOV (SP); $LPERR +:SAVE ERROR LOOP ADDRESS 
057550 005037 001210 CLR SESCAPE S:CLEAR THE ESCAPE FROM ERROR ADDRESS 
37354 112757 000001 001131 MOVB ERMAX :30NLY ALLOW 1) ERROR ON NEXT TEST 
057562 013777 001116 121366 SOVER: MOV STSTA @DISPLAY ::DISPLAY TES 
057570 013716 00112 MOV SLPADR. (SP) S:FUDGE RETURN ADDRESS 
057574 00000 RTI :EEINES PS 
057576 00000 5. 7:MAX. NUMBER OF ITERATIONS 
057600 SSu0sTaL 
900051 .REPT $7 
057600 7700 : TST1+ ii STARTING ADDRESS OF TEST 1 
05760 10100 ‘ TST2+ S:STARTING ADDRESS OF TEST : 
57604 011012 “WORD TST3+ S:STARTING ADDRESS OF TEST 
057 11646 “WORD TST4+* S:STARTING ADDRESS OF TEST 4 
05761 12436 “WORD TST5+ tSSTARTING ADDRESS OF TEST 5 
057612 013376 “WORD TST6+ *SSTARTING ADDRESS OF TEST 6 
057614 14216 “WORD TST7+ 3 STARTING ADDRESS OF TEST 
057616 015 “WORD TST10+ *:STARTING ADDRESS OF TEST 10 
05762 015764 "WORD TST11+ ESTAR TING ADDRESS OF TEST 11 
057 16562 "WORD TST12+ SS STARTING ADDRESS OF TEST 12 





2 
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057624 
bene 6 


05 
057672 
057674 


057674 
057700 
057704 
057706 
10 057706 


17222 «WORD TST13+ 

17676 eWORD TST14+ 
020520 eWORD TST15+ 

262 WORD TST16+ 
022024 eWORD TST17+ 
022376 eWORD TST20+ 
bse03g WOR fergie 
023312 eWORD TST22+ 
023634 -WOR TST23+2 
024152 eWORD TST 235 
025064 eWORD TST25+ 
025706 »WORD TST $*5 
026610 eWORD TST27+ 
027676 eWORD TST Ors 
030522 eWORD TST31+ 
sDROP PRIORITY TO ALLOW CONSOLE 
STOP: 

012746 900140 MOV #PR3,-(SP) 
012746 057674 MOV #64$,-(SP) 
000002 RTI 


s3STARTING ADDRESS OF TES 


33STARTING ADDRESS OF 


SE STAR 
Z3STARTING ADDRESS OF 
3:STARTING ADDRESS OF 


INTERRUPT 


33PUT NEW PS ON STACK 
3sPUT NEW PC ON STACK 
33POP NEW PC AND PS 


gRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 


012746 000240 MOV #PRS,-(SP) 
012746 057706 MOV #65$,-(SP) 
000002 RTI 

65$: 
000207 RTS PC 


33PUT NEW PS ON STACK 
33PUT NEW PC ON STACK 
33POP NEW PC AND PS 


3RETURN 


EST 13 
TEST 14 
TEST 15 
TEST 16 
TEST 17 
TEST 20 
TEST 21 
TEST § 
TEST 2 
TEST $¢ 
TEST 25 
TEST 26 
TEST 27 
TEST 30 
TEST 31 


SEQ 0231 


~ 


5) 


N 2 
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ERROR HANDLER ROUTINE 
1 .SBTTL ERROR HANDLER ROUTINE 
Fr. FRAAAARAAARAAAREREEAAEEEERAERERREEEEEREEREREERERERREREEREEERERREE 
sSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
AVE THE ER ROR A TEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
SCAND GO TO ERRTYP ON ERROR 
¢eTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
+ *SW15=1 T ON ERROR 
:*SW13=1 INHIBIT ERROR TYPEOUTS 
:*SW10=1 BELL ON ERROR 
3 #SW09=1 LOOP ON ERROR 
* ERROR N z:ERROR=EMT AND N=ERROR ITEM NUMBER 
057710 105037 060302 SERROR: CLRB _—sIBSAVE Z:CLEAR THE ITEM BYTE SAVE LOCATION 
057714 104410 CKSWR S:TEST FOR CHANGE IN SOFT-SWR 
057716 105237 001117 7$: INCB — SERFLG ::SET THE ERROR FLAG 
057722 001775 BEQ 7$ ::DON'T LET THE FLAG GO TO ZERO 
057724 013777 001116 121224 MOV STSTNM, aD1SPLAY S:DISPLAY TEST NUMBER AND ERROR FLAG 
30738 032777 002 121214 BIT #81T10.a S:BELL ON ERROR? 
057740 001402 BEQ 1$ S:NO = 
057742 104401 1212 TYPE $BELL + RING 
057746 005237 Ie 1$: INC $ERTTL #3 COUNT THE NUMBER OF ERRORS 
057752 011637 0011 MOV (SP) SERRPC 7:GET ADDRESS OF ERROR INSTRUCTION 
057756 162737 001132 SUB #2, SERRPC 
057764 117737 121142 001130 MOVB aSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
057772 032777 001 121154 BIT 109,a T:SEE IF LOOP ON ERROR IS SET 
060000 001 BNE ::BRANCH AROUND ROUTINE IF SO 
060002 122737 000177 001130 CMPBs#'177, SITEMB *:SEE IF THIS IS THE POWER FAIL CALL 
06001 1454 BEQ $ BRANCH AROUND ROU F IT IS 
060012 105737 060302 TSTB  IBSAVE ::SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 
06001 52 7 BNE 1003$ 3: BRANCH $s 
0600. 22737 177777 060300 CMP #~1,CPSAVE S:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
960026 901 BEQ *:BRANCH IF SO 
0600 1376 MOV ERRVEC,-(SP) 33 SAVE CONTENTS OF ERROR VECTOR 
060034 O12 52 900004 MOV #1000$,ERRVEC 3:SETUP ‘TRAP’ RETURN ADDRESS 
06004 13737 177766 060 mov 177766,CPSAVE ::MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 
06005. iE 177777 060300 1000$: MOV CPSAVE z:SET CPU ERROR REGISTER TIMEOUT INDICATOR 
00066 1 6 060066 Moy a10018° (SP) T:SETUP RETURN ADDRESS 
060066 01 000004 1001$: MOV (SP)+,ERRVEC § ;:RESTORE CONTENTS OF ERROR VECTOR 
960072 27 177777 060300 1002$: cmp rt SPSAVE z3SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
06010. 737 000001 060300 BIT rhe cn S:SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 
06011 1614 BEQ ?:BRANCH IF OK 
11 1 1777 BIC #81T00,177766 ::CLEAR THE BIT F SET 
1 13737 0011 960 MOVB ia IBSAVE ;;:MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 
126 112737 1 11 MOVB ITEMB S3SET SITEMB TO SPECIAL POWER FAIL POINTER 
1 BR 33BRANCH OVER IBSAVE CLEARING 
13 105037 060302 1 3s: CLRB = IBSAVE Z:CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 
14 777 020000 121004 BIT #81T13,aSUR zSKIP TYPEOUT IF SET 
15 1004 BNE $:SKIP TYPEOUTS 
15 060304 JSR C,ERRTYP 7:60 TO USER ERROR ROUTINE 
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w 


POPURIPOPORIPIPIPIPIPINPINININY) 2 


UE & 
™~ 


Se 


ad od od 
SNe 


SESSSSSSSSES 


8 


001217 
000001 


1130 
3216 


060302 
120732 


001000 


1124 
1210 


001210 
031402 


060302 


001242 
060204 


120716 


000042 


20S: 


21$: 


a 


3$: 


CPSAVE: . 
IBSAVE : 


TYPE 


WORD 
» WORD 


oSCRLF 
#APTENV ,SENV 
SITEMB,21$ 
PC ,SATY4 


2s 
eat 
i 


~ #B1T09,asuR 


SLPERR, (SP) 
SESCAPE 
SESCAPE, (SP) 


MSENDAD ,a442 
6$ 


IBSAVE 
7$ 
0 
0 





SEQ 0233 


: s RUNNING IN APT MODE 

33NO,SKIP APT ERROR REPOR 

338 SE ITEM NUMBER AS ERROR NUMBER 
::REPORT FATAL ERROR TO APT 


;;APT ERROR LOOP 
33 SEE ify" SAVE Is LOADED 
ae H Ir NOT = NO HALT ON PWR MON BIT ERROR 


3HAL 
SITEST FOR CHANGE IN SOF T=SWR 
+ LOOP — SWITCH SET? 


$ TFUDGE RETURN FOR LOOPING 
ssCHECK FOR AN ESCAPE ADDRESS 


 TFUDGE RETURN ADDRESS FOR ESCAPE 
ssACT~11 AUTO-ACCEPT? 
:sBRANCH IF NO 


s3SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL 
2 RETURN BACK TO CALL ORIGINAL ERROR 


S:LOCATION TO SAVE CPU ERROR REG CONTENTS 
3zLOCATION TO SAVE ITEM BYTE 


4 

5 

6 

4 

8 

9 

10 

11 

i§ 

13 060304 

14 060306 

15 060314 

1g 060316 

1 

18 

19 
060322 

1 060326 

22 060332 
060336 
060340 
060341 

3 

25 060342 

$ 060 
06035 

28 060356 
060 
060 


gute 
PS 
ES Eee 


Ba8 


REALS 


vs 
ae 3 


104401 


020000 
061114 


120640 


060400 


061120 


061122 


-SBTTL ERROR TYPEOUT ROUTINE 
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SEQ 0234 


:*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION 
g OREGARDING THE DETECTION OF AN ERROR AS FOLLOWS: 


-UNIT NUMBER 


DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND 


;*PROGRAM COUNTER ARE cS ASS ON’ THE FIRST LINE; 


MESSA 
{FONE OR'MORE SUCCEED! 
ED LINES OF 


ePAIRE 


{RAFTER THE ERROR MESSAGE. 


ERRTYP: SAVREG 
BIT 


sTYPE ‘DRIVE wes : 


JMP 


TYPOS 
BYTE 
TE 


#SW13,aSWR 
1$ 


27s 


oSCRLF 


ERTYOO 
SENIT. (SP) 


3 
0 


—_. FORMATTED AND PRINTED ON 
F ERROR’ HEADERS AND ERROR DATA ARE PRINTED 


INHIBIT TYPEOUTS?? 
sNO!! 
sYES!! 


;TYPE UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER, AND 
| OUNTER 


3TYPE *DRVA"® 

73SAVE SUNIT FOR TYPEOUT 

z3TYPE ORIV 

2260 TYPE--OCTAL ASCII 
sTYPE 3 DIGIT(S) 

: SUPPRESS LEADING ZEROS 


at FOR UNIT oa TEST 


MOV E ADDRESS 
MOV ArT (AO) RO see DRIVE TYPE REGISTER 
BIC #177740,R0 DRIVE TYPE BITS AND 
MOV ASRMBO, 3$ ‘eer ASCII DRIVE TYPE 
CMP #26,R0° 31S DEVICE AN RMBO ? 
BNE 4 :NO 1 
2$: TYPE  ,ERTYOS [TYPE "* = 
TYPE [TYPE DRIVE TYPE 
3$: «WORD 0 [DRIVE TYPE MESSAGE IS STORED HERE 
-TYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER 
: CLR TSTNMB sLOAD TEST NUMBER FOR 
V STESTN, TSTNMB 
TYPE voi :TYPE “'TSTA’’ 
V TSTNMB.-(SP) § 3:SAVE TSTNMB FOR TYPEOUT 
t: TYPE TEST R 
TYPOS 2:60 TYPE=-OCTAL ASCII 
BYTE ; S:TYPE 3 DIGIT(S) 
“BYTE SUPPRESS LEADING ZEROS 
CLR RRNMB LOAD ERROR NUMBER F 
MOVB TEMB.ERRNMB  ;TYPEOUT 
BEQ SKIP JF NO ERROR CALLED 
TYPE ERTYO2 STYPE “ERRA’ 
v ERRNMB,-(SP) $3 SAVE ERRNMB FOR TYPEOUT 
33 vPE ERFOR NUMAER 
TYPOS 2360 YPE--OCTAL ASCII 
-BYTE si TYPE 3 DIGIT(S) 
“BYTE 3; SUPPRESS, LEADING ZEROS 
5$: YPE ,ERTYO3 STYPE 'PC= 


dD 3 
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46 060464 aa 001132 MOV SERRPC,-(SP) — ;SAVE SERRPC FOR TYPEOUT 
38 PROGRAM COUNTER 
060470 104403 TYPOS :G0 TYPE=-OCTAL ASCII 
06047 06 BYTE 6 +S TYPE 6 DIGIT(S) 
- 06047 1 -BYTE T:TYPE LEADING ZEROS 
48 j GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0 
49 060474 005737 061122 é$: TST ERRNME :WAS AN ERROR CALLED? 
50 960909 001002 BNE $ <BR IF YES 
3 060502 000137 061114 JMP 27$ :NO-- 
28 0605 104401 1217 7$: TYPE SCRLF sYES-TYPE CRLF 
54 060512 105037 061 $ CL BOTFLG 3CLEAR BOT FLA 
as 060516 105037 0611 CLRB = CHRCNT ; LEAR CHARACTER COUNTER 
56 060522 013700 0611 3 ERRNMB, RO :R POINTS TO FIRST OF 
57 0605 126700 0001 CMPB 0 s«#'177,,RO 3SEE If HIS ERROR CALL IS SPECIAL POWER FAIL CALL 
58 060532 00100 BNE i T 
9 Boose 12700 061172 MOV sPFECH, RO MOVE POWER FAIL ERROR CALL TABLE TO RO 
61 209 8$: ASL S :FOUR ENTRIES IN ERROR 
6¢ 060544 ASL : TABLE 
060546 6 ASL 
64 06055 700 001574 AD SSERRTB-B. .RO 
6° 060554 011001 9$: MOV (RO) ,R1 :R1 POINTS TO ERROR MESSAGE 
44 060556 001507 BEQ 19$ SBRANCH IF NO ERROR MESSAGE 
69 -TYPE THE ERROR MESSAGE 
70 060560 01210 10$: MOV (R1)+,R2 :R2=ADDRESS OF MESSAGE STRING 
71 060562 00150 EQ 19$ SAGE 
ie} 060964 010 732 MOV R2,18S SLOAD ADDRESS OF STRING 
060570 005037 061124 CLR BOTADR :CLEAR BOT ADDRESS 
74 060576 Ne 3 11$:  MOVB (R2)+,R3 ZEND \OF STRING?? 
75 06057 454 BEQ 
76 122703 000015 CMPB sé CR, RB CARRIAGE RETURN?? 
77 060604 001 BNE 12$ :NO!! 
78 105037 061127 CLRB = CHRCNT TYES=CLEAR CHAR COUNT 
79 06061 9007 BR 11$ *GET NEXT CHARACTER 
80 060614 122703 000012 12$ CMPBOMLF,R3 SLINE FE 
1 0606 176 BEQ 11$ SYES-GET NEXT CHARACTER 
a? 000011 cape #HT ARS 3HORIZONTAL TAB?? 
5 1127 133 INCB = CHRCNT sO UST CHARACTER COUNT 
5 7 7 061127 BITB #7,CHRCNT 
i BNE 138 
7 061127 148:  INCB CHRCNT ZINCREMENT CHARACTER COUNT 
1 355 $b0e0 CMPB + SPACE?? 
BNE No! ! 
91 Ate 31124 «MOV one SSAVE ADDRESS OF SPACE 
3% i98hth 100 061127 15$: CAP + eCHRCNT END OF LINE?? 
94 061124 MOV Leap. R4 [GET ADDRESS OF LAST SPACE 
95 1007 BNE *BRANCH IF SPACE DETECTED 
$y aioe Ieee QUIT tes tenth Et tan human, cou 
98 EY, 2 85 MOV 8$,R2 43 UP R2 FOR TESTING 








C 
E 


33 
ad 
38 


Y 


SESSSRES SESE RUNS VS VRORUN LS cave nnwvsoSeUERRATros 


eee me ek ek ee ee ed ee a ee a ec a ee ee a a a a a a ed ad dd dd wh 


1 
1 
1 
1 
1 
107 
107 
11 
11 
11 
111 
111 
1116 
50 
51 0611 
25 11 
5 1124 
54 0611 
55 0611 


FCTNL 
T ROUT 


cod ad OD 





177777 061126 


061162 
001217 
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REPLACE SPACE 
7s G 


ET BOT FLA 


TYPE ERROR ME 


SSAGE STRING 


TY 
sSTRING ADDRESS GOES HERE 
sWAS STRING TRUNCATED?? 


*YES-TYPE CRLF 
[CLEAR BOT FLA 


sCLEAR CHARA 


; ORE R 
sTYPE REST OF 


3R1 POINTS TO ERROR HEADER TABLE 
; NO HEADER 


BRANCH IF 


STRING 


> (ASSUME NO DATA) 


DAT. 
Re POINTS TO DATA ADDRESS TABLE 
3R3_POINTS TO ABLE 
3PUT HEADER ADDRESS FOR TYPE 
CH END OF HEADERS 


sBRANCH I 
3 (ASSUME END OF DATA) 
sHEADER ADDRESS GOES HERE 


sDATA WITH HEADER?? 


:R4 POINTS TO 
=R5 POINTS TO 
:WHAT KIND OF 


sOCTAL 


sMORE DATA?? 
° i 


DATA ADDRESS 
FORMAT 
DATA?? 


TYES-TYPE 2 SPACES 
SAND CONTINUE 


sTYPE ONE BLANK LINE 
sBEFORE NEXT HEADER 


ERROR NUMBER 
BEGINNING OF 
;B0T 


11$ 
16$: CLRB =(R4) 
VB  #-1,BOTFLG 
17$: ‘TYPE 
18$: " 
TSTB BOTFLG 
BEQ 10$ 
TYPE SCRLF 
CLRB  « BOTFLG 
CLRB = CHRCNT 
MOV BOTADR,R2 
MOV R2,18$ 
MOVB = #" = (R2) 
TSTB 3s (R2S+ 
BR 1$ 
-TYPE ERROR HEADER AND ERROR DATA 
19$: | MOV (RO) ,R1 
BEQ 7$ 
TYPE SCRLF 
MOV 4(RO} R 
MOV 6(RO).R 
20$: MOV (R1)+,218 
BEQ 27$ 
TYPE 
218: WORD 
TYPE SCRLF 
TST R 
BEQ 208 
MOV (R2)+,R4 
MOV (R3)+,R5 
228:  TSTB (R5)+ 
BMI 43 
BEQ 3$ 
MOV a(R4)+,-(SP) 
TYPDS 
BR 258 
23$: MOV a(R4)+,-(SP) 
TYPOC 
BR 25$ 
24$: MOV @(R4)+,-(SP) 
TYPBN 
25$: TST R4) 
BEQ 6$ 
TYPE RTY04 
26$: —«TYPE SCRLF 
BR 2 
27$: RESREG 
RTS PC 
TSTNMB: .WORD 
ERRNMB: .WORD 
BOTADR: .WORD 
BOTFLG: .BYTE 
CHRCNT: .BYTE 


TEXT ADDRESS 


SEQ 0236 





C2 
FL 





136 

15 Ost33 1 
158 0611 4 
159 06114 4 
sis i 
196 1188 0 
1s Ss Sea 
196 061206 2 
168 061270 061274 
19? 061274 103 
1) Stats gu 
173 061314 061316 
174 061316 900 


12 126 
124 
105 
1 
5 
061. 70 061306 
11 127 
190 125 
000000 
000 


PFECH: 
PFECHI: 


TT PERS Pron ee sWORDS DEFINING TABLES BELOW 
-astl7 2POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 


PFECH2: .+4 


PFECH3: 
PFECH4: 


0 
“ASCIZ 
EVEN 


+2 

- WORD 
+ 
-BYTE 
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ERROR TYPEOUT ROUTINE 


adRvsa 
a, TEST# 
a. ERR#@ 


?CPUERREG? 


CPSAVE ,0 
0.0 


SEQ 0237 
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DRORS 


FSRUNSS 


SESEESEEEES 
FRERRSRRRS 


™~ 


RERESES 


+++ ce ed eh ho ee 
BRER RROEE 


SESE 
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-SBTTL TTY INPUT ROUTINE 


32 RAAAAARRAREAAEAAARAREEEEEERERAERERR AEE EARARAERERRARERRAERRRERREREEE 


-ENABL LSB 
000000 STKCNT: .WORD 6 33NUMBER_OF ITEMS IN QUEUE 


000000 STKQIN: WORD 33 INPUT POINTER 
000000 STKQOUT: .WORD 3;O0UTPUT POINTER 

STKQSRT: .BLKB 1 z3TTY KEYBOARD QUEUE 
061327 —. 


s*Tk INITIALIZE ROUTINE 
s*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
3 *SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


SeCALL: 
8 JSR PC ,STKINT 
ot RETURN 
50 7 061 $TKINT: CLR STKCNT z:CLEAR COUNT OF ITEMS I N QUEUE 
1 7 061 961322 MOV #STKQSRT STKOIN s:MOVE THE STARTING ADDRESS 0 THE 
13737 061 1324 MOV st TKOIN. sfkaou S:QUEUE INTO THE INPUT & SS rpuT POINTERS. 
12737 0614 MOV THVEC 33INITIALIZE THE KEYBOARD VECTOR 
012737 0002 MOV 4300 00 arfky KVEC+2 3;'BR'’ LEVEL 4 
005777 11757 TST S:CLEAR DONE FLAG 
O12777 000100 117562 MOV #100.a8TKs ‘ENABLE TTY KEYBOARD INTERRUPT 
207 RTS S:RETURN TO CALLER 


orm SERVICE ROUTINE 
3*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
by {| py THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 


THE 
SIF THE CHARACTER IS A ‘‘CONTROL-C"* (*C) STKINT IS CALLED AND 
3 *UPON RETURN EXIT IS MADE TO THE ‘‘CONTROL-C"’ RESTART ADDRESS (SHUT2) 


117746 11755 STKSRV: MOVB asTKe,- -(SP) ::PICKUP THE CHARACTER 
716 177 BIC “C177, (SP) T:STRIP T 
1627 000021 C (6), SKN +:1S IT A RANDOM XON? 
1002 30S * BRANCH IF > 
5 TST (SP)+ [:CLEAN RANDOM XON OFF STACK 
ate RTI + SRETURN 
1627 000003 CMP (SP) 43 z21S IT A CONTROL C? 
1007 1$ +:BRANCH IF NO 
1 062526 TYPE SCNTLC ?:TYPE A CONTROL-C (“C) 
7 J PC. $TKINT S:INIT THE KEYBOARD 
TST (SP)+ S:CLEAN UP STACK 
1 062570 JMP ure S:CONTROL C RESTART 
1627 1$: CMP (SP) 47 ::1$ IT A CONTROL G? 
1 BNE 3 :BRANCH IF NO 
¢ 7 000176 001154 CMP #SWREG. SUR 31S SOFT-SWR SELECTED? 
5 BEQ 32:60 TO SWR CHANGE 
e737 000001 061320 CMP #1, $TKCNT z21S THE QUEUE FULL? 
BNE 3$ + :BRANCH RY NO 
104401 001212 TYPE ,S$BELL t:RING THE TTY BELL 


SEQ 0239 











1 09 5726 TST (SP)+ z3CLEAN CHARACTER OFF OF STACK 
1 1 BR 5$ scEXIT 
1 04 1627 000023 3$: CMP (Sp) 423 t:IS ITA CONTROL~S? 
1 g 1021 & 3: BRANCH IF 
151 5 117442 CLR asTks t:DISABLE TTY Y KEYBOARD INTERRUPTS 
151 5726 TST (SP)+ S:CLEAN CHAR OFF STACK 
061 105 117434 31$: TSTB gsTks t:WAIT FOR A CHAR 
1524 1 0375 BPL 1$ 3 3LOOP | UNTIL ITs THERE 
061526 117746 117430 MOVB asTke =(SP) 7:GET T He CHARA 
0615 O4e716 177 BIC #°C177, (SP) + :MAKE iT BIT vaScdI 
0615 627 000021 CMP SP)+,#21 2:18 IT A CON 
061542 1366 BNE 1$ 7 BRANCH IF No 
061544 01 000100 117406 MOV #100, aSTKS + REENABLE TITY KEYBOARD INTERRUPTS 
061552 : RTI + SRETURN 
061554 005 061320 32$: INC STKCNT [:COUNT THIS CHARACTER 
061560 021627 000140 CMP (SP) #140 [:1S IT UPPER CASE? 
061564 2405 BLT BRANCH IF YES 
1566 0 1687 000175 CMP (SP) #175 7:1S IT A SPECIAL CHAR? 
0615 2 BGT BRANCH IF YES 
061574 04 716 0 BIC #40, (SP) T:MAKE IT UPPER CASE 
061600 11 1 4$: MOVB (P55 @STKQIN ::AND PUT IT I 
061604 005237 061 g INC KOIN UPDATE THE POINTER 
061610 023727 061 061327 CMP STKOIN. #STKQEND 7:G0 OFF THE END? 
061616 1003 BNE BRANCH IF NO 
061620 012737 061326 061322 MOV #STKOSRT,STKQIN ;;RESET THE POINTER 
061626 000002 5$: RTI + :RETURN 
FRRAAAAAAAAAAAAAAAAAAAAAEAEAAAAAEAAAERERARAERERAAARARRERREREAREE 
3 #SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 
*ROUTINE IS ENTERED FROM THE TRAP HANDLER, WILL 
jeSERVICE THE TEST FOR CHANGE IN SOFTWARE Sarten REGISTER TRAP 
N OPERATING IN TTY INTERRUPT 
061630 022737 000176 001154 ick Sun: CMP #SWREG, SUR 3218 THE Peo T=SUR SELECTED 
061636 1124 S$ SIEXIT IF 
061640 105 117314 TST8 = @S TKS t:1S A CHAR WAITING? 
061644 100121 BPL 5$ S:1F NOT, EXIT 
061 117746 117310 mOVB TKB,=(SP) 3: YES 
06165 042716 177600 BIC #°C177, (SP) zEMAKE iT 7-BIT ASCII 
0616 021687 00000 CMP SP) A? 21S ITAC -G? 
061 1 BNE +:1F NOT, PUT IT IN THE TTY QUEUE 
SZAND EXIT 
$3 RRAEAEAAAAAARAAAARAAERAAEEAAEAARAAAEARARAEAARAEAAAAARAAERAAAERARRAAEE 
3 #CONTROL IS PASSED TO THIS POINT FROM EITHER THE T TTY INTERRUPT SERVICE 
S*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL A RESULT OF A 
“@CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH RAEGESTER BEING SELECTED. 
123 7 001150 000001 és: CMPB 108,41 ZARE WE RUNNING IN AUT 
6 1 BEQ S:BRANCH IF YE 
67 5 TST SP)+ [CLEAR CONTROL=G OFF STACK 
7 061 JSR PC STKINT +: FLUSH THE TTY INPUT QUEUE 
5 CLR Tk z;DISABLE TY KEYBOARD INTERRUPTS 
2737 001151 mOVB «#1, SINTAG [:SET INTERRUPT MODE INDICATOR 
714 104401 TYPE  ,$CNTLG zECHO THE CONTROL-G (* 
104401 SGTSWR: TYPE SMSWR S:TYPE CURRENT CONT ENTS 
4 015766 38 MOV SWREG, -(SP) SSSAVE SWREG FOR PEOUT 
10440 TYPOC 3:60 YP COcTAL Ascii ALL DIGITS) 
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1 3 
PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 44-2 SEQ 0240 
062556 TYPE ,S$MNEW s:PROMPT FOR NEW SWR 
19$: CLR =(SP) *:CLEAR COUNTER 
CLR -(SP) TITHE NEW SWR 
117212 7$: TST8 asTks S:CHAR THERE? 
BPL $ t:IF NOT TRY AGAIN 
117206 MOVB asks (SP) 3sPICK UP 
177600 BIC #°C177, (SP) t:MAKE IT a ASCII 
000003 CMP (SP) #3 z31S IT A CONTROL-C? 
BNE +:BRANCH IF NOT 
526 TYPE SCNTLC YES ECHO. CONTROL ~C (*0) 
ADD SP 3 CLEAN UP 
001151 000001 CAPS SINTAG, #1 + SREENABL AB BLE sn KEYBOARD INTERRUPTS? 
900100 117144 MOV #100, aSTKS $41 LOW TTY KEYBOARD INTERRUPTS 
570 8$: JMP SHUT2 7: CON SA TROL AC RESTAR 
000025 9S: CMP (SP) .#25 zz1S 17 A CONTROL-U? 
1005 BNE 10$ ::BRANCH I 
1 533 TYPE $CNTLU S:YES, ECHO CONTROL-U (*U) 
062706 inte 20$: ADD #6, SP S: IGNORE PREVIOUS INPUT 
BR 19$ S:LET'S TRY IT AGAIN 
000015 10$: CMP (SP) #15 z31S IT A <CR>? 
BNE 16$ S:BRANCH IF NO 
000004 TST 4(SP) T:YES, IS IT THE FIRST CHAR? 
BEQ 118 S:BRANCH IF YES 
000002 117072 MOV 2(SP) ,a@SWR SISAVE NEW SUR 
900006 11$: AD #6,SP *:CLEAR UP STACK 
121 14$: TYPE SCRLF ::ECHO <CR> AND <LF 
1151 000001 CMe SINTAG,#1 3 :RECENABL E TTY KBD > INTERRUPTS? 
000100 117050 MOV #100, aSTKS : RE-ENABLE TTY KBD INTERRUPTS 
15$: RTI RETURN 
056772 16$: JSR PC, STYPEC 7 ECHO 
BLT (se ‘ 2 ANCH TF YES 
000067 CMP (SP) ,#67 t:CHAR > 7? 
BGT 1 BRANCH IF YES 
900060 BIC #60, (SP)+ t:STRIP=OFF ASCII 
2 TST (SP) t:1S THIS THE FIRST CHAR 
Q ::BRANCH IF YES 
ASL (SP) - £:NO, SHIFT PRESENT 
L (SP) t: CHAR OVER TO MAKE 
ASL (SP) 3: _ ROOM FOR NEW ONE. 
900002 17$: INC 2(SP) i KEEP COUNT OF CHAR 
BIS -2(SP), (SP) [:SET IN NEW CHAR 
BR S:GET THE NEXT ONE 
001216 18$: TYPE soues sz TYPE 2<CR><LF> 
BR 20$ S:SIMULATE CONTROL-U 
-DSABL LSB 


23 RERRAERAEEARAAEREAAAAEEEERERAAAAAAEAAAAAEAAAAAEAEAAAAAAEAAAAEREARERES 


= 
IN 
nm 


x 
BITES 
as ms 


SNS 
mo 


y~ 


VMs 


SESPSSPS ERE RE RER 
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seTHIS _ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


ee RDCHR :2GET A CHARACTER FROM THE QUEUE 
be RETURN HERE CHARACTER IS ON THE STACK 
: T:WITH PARITY BIT STRIPPED OFF 


: (SP) ,=(SP) : PUSH DOWN THE PC AND 
6666 900004 000002 MOV 4(SP5 ,2(SP) Si THE PS 
5066 CLR 4(SP) 7:GET READY FOR A CHARACTER 
5046 CLR =(SP) ::PUT NEW PS ON STACK 
46 062216 MOV #64$,-(SP) +:PUT NEW PC ON STACK 
s RTI +:POP NEW PC AND 
005737 061320 Te Ist $TKCNT ::WAIT ON A CHARACTER 
533 061 i? DEC $Tk z:DECREMENT THE COUNTER 
M7766 17 ? 000004 MOVB astkaouT, 4(SP) 3:GET ONE CHARACTER 
52 INC *:UPDATE THE POINTER 
5 27 $i ‘ 061327 cme $TKQOUT. #STKQEND ; zgbID IT 60 OFF OF THE END? 
bets 061326 061324 MOV #STKOSRT,STKQOUT’ ; t;RESET THE POINTER 
000002 2s: : RETURN 
cr stanaeaanaeneeannenenettererentraetereetereeeeneneeeeseneneenes 
STHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
3* RDLIN sz INPUT A STRING FROM THE TTY 
* RETURN HERE SSADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3* +: TERMINATOR WILL BE A BYTE OF ALL O'S 
010346 SRDLIN: MOV R3,-(SP) Z:SAVE R3 
504 CLR =(Sp) *:CLEAR THE RUBOUT KEY 
1270 062516 1$: MOV #STTYIN,R3 ::GET ADDRESS 
70 526 2s: CMP ASTTYIN¢8.,.R3_ : :BUFFER FULL? 
101456 BLOS 4$ 3:BR IF YES 
104411 RDCHR $:G0 READ ONE CHARACTER FROM THE TTY 
11261 MOVB (SP) +, (R3) *:GET CHARACTER 
122713 000177 10$:  CMPB  #177,(R3) 31S IT A RUBOUT 
10 BNE 5$ ::BR IF NO 
57 g TST (SP) t:1S THIS THE FIRST RUBOUT? 
90108 BNE 3:BR IF NO 
112737 134 062514 mOVB ss #"\, 9S ::TYPE A BACK SLASH 
104401 062514 TYPE 9$ 
ier 7777 MOV 4-1, (SP) ::SET THE RUBOUT KEY 
30 6S: DEC BACKUP BY ONE 
062516 CMP R3,4STTYIN STACK ENPTY? 
3 BLO 


YES 
rp TO TYPEOUT THE DELETED CHAR. 


™N 
wa 
= 
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READ ANOTHER CHAR. 
= RUBOUT KEY SET? 


5 
YPE A BACK SLASH 


5$: 


ess 
Ss 
ae 
=> 
” 
=) 
5 head 
Me 

Sete tet 


Q $ 
27 34 062514 Bove #\,98 T 
peotg ” tire (Sp) ::CLEAR THE RUBOUT KEY 
2 18 000025 7$: CMPB #25.(R3) +:1$ CHARACTER A CTRL U? 
100. BNE 8 72BR IF NO 
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PREP R REE 
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ede 
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NOMS WwN 
Peace 
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33332 _ £s 
RSELGSNSE 
Oo=00] |] =O 
W—=Wa— 
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Nw 
ow 


Noo 
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OWN = NIN SNS = 


Scsss 
Sates 
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Seacy 
sist SSR8S55 


4 
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062533 
000022 
001217 
062516 
001216 
062514 
062514 
000015 


177777 
001220 


000004 
062516 


ecsxs 
=—OnVNo 
Sonnuiw 


177777 
001116 


031422 


4$: 
3$: 


9$: 
STTYIN: 


TYPE 
BR 
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SCNTLU 
#22, (R3) 
$ 


(R3) ,9$ 


$ 
#15, (R3)+ 


=1(R3) 


(SP)+,R3 
(SP) ,=( 
4(SP5 ,2¢ 


/*C/<15><1 
/*U/<15><1 
/*G/<15><1 
<15><12>/SWR = / 
/ NEW =/ 


#-1,CTLFG 


STSTNM 
1$ 
SHUT 


SP) 
#STTYIN,4(SP) 


Se J 


PE THE 


INPUT STRING 
O PICKUP ANOTHER CHACTER 
PE A_‘?° 


EAR_THE BUFFER AND LOOP 
HO THE CHARACTER 


HECK FOR RETURN 
oop 


3 ;RETURN 

i ESTORAGE FOR ASCII CHAR. TO TYPE 
SRESERVE 8 BYTES FOR TTY INPUT 
SCONTROL ‘'c'* 
SCONTROL ‘'U" 
CON 


3SET THE CONTROL-C FLAG 


3NO=-RESPOND TO “C 
sEXIT FROM INTERRUPT 


DOING ANY TESTS ? 
IF YES 


AN RUBOUT KEY FROM THE STACK 


TORE R 
ADJUST THE STACK AND PUT ADDRESS OF THE 
FIRST ASCII CHARACTER ON IT 


SEQ 0242 


C2 
ER 
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READ AN OCTA! NUMBER FROM THE TTY 
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~SBTTL READ AN OCTAL NUMBER FROM THE TTY 


LLL ELL dle llelabalalalebadadale 
s*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
3*CHANGE IT TO BINARY. 


e *CALL e 
; RDOCT z:READ AN OCTAL NUMBER 
3* RETURN HERE +:LOW ORDER BITS ARE ON TOP OF THE STACK 
3* +:HIGH ORDER BITS ARE IN $HIOCT 
SRDOCT: MOV (SP) ,=(SP) ssPROVIDE SPACE FOR THE 
MOV 4(SP5 ,2(SP) + INPUT NUMBER 
MOV = (SP) +:PUSH RO ON STACK 
MOV R1,-(SP) PUSH R1 ON STACK 
MOV R2,=(SP) +:PUSH R2 ON STAC 
1$: RD! IN T:READ AN ASCIZ LINE 
MOV (SP)+,RO T:GET ADDRESS OF 1ST CHARACTER 
cLR R} t:CLEAR DATA WORD 
2$: MOVB (RO) +, =(SP) :zPICKUP THIS CHARACTER 
BEQ 3$ sz1F ZERO GET OUT 
ASL R1 ze%2 
ROL R2 
ASL R1 32%4 
ROL R2 
ASL R1 338 
ROL R2 
BIC #°C7, (SP) ::STRIP THE ASCII JUNK 
ADD {sP)+,R1 3 3ADD IN THIS DIGIT 
3$: TST (SP)+ ?:CLEAN TERMINATOR FROM STACK 
MOV R1,12(SP) S:SAVE THE RESULT 
MCV R2.$HIOCT 
MOV (SP)+,R2 :;POP STACK INTO R2 
MOV (SP)+<R1 +:POP STACK INTO R1 
MOV (SP)+;RO +:POP STACK INTO RO 
RTI + SRETURN 
SHIOCT: .WORD 0 *:HIGH ORDER BITS GO HERE 


Ld 
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TRAP DECODER 


-SBTTL TRAP DECODER 


baie ye nap pean geri trea nly tg pe ne re ig 
THIS ROUTING WILL PICKUP THE ef BYTE OF i. Ag INSTRUCTION 
3*AND USE IT TO INDEX THROUGH THE T TABLE FOR THE STARTING ADDRESS 
3 *OF THE DESIRED ROUTINE. THEN USING @ THE ADDRESS OBTAINED IT WILL 
3*GO TO THAT ROUTINE. 


062714 016646 000002 STRAP: MOV 2¢5P) (SP) ; ASSUME THE STATUS OF 
062720 042716 900020 BIC #20, (§P) +: THE CALLER=-DO NOT ALLOW 
062724 012746 0627 MOV #18.-<SP) +: T-BIT TRAP 
062 2 RTI 33SET THE NEW STATUS 
062732 010046 1$: MOV RO,-(SP) 1 d3SAVE R 
062734 016600 000002 2($P), RO : 3IGET TRAP ADDRESS 
062740 005740 TST _ $3BACKUP BY 2 
742 111000 MOVB thos a0 33GET RIGHT BYTE OF TRAP 
062744 006300 ASL RO [POSITION FOR INDEXING 
062746 016000 062766 _ MOV STRPAD(RO),RO ZINDEX TO TABLE 
062752 000200 RTS RO 7:60 TO ROUTINE 
::THIS IS USE TO HANDLE THE 'GETPRI'’ MACRO 
062754 011646 _ $TRAP2: MOV (SP) ,=(SP) s:MOVE THE PC DOWN 
062756 016666 000004 000002 MOV 4(SP5 ,2(SP) ::MOVE THE PSW DOWN 
062764 000002 RTI SRESTORE THE PSW 
.SBTTL TRAP TABLE 
s*THIS TABLE CONTA TAINS TH THE og taRTiNe ADDRESSES OF THE ROUTINES C.\LLED 
**BY THE "TRAP TRUCTI 
: ROUTINE 
062766 062754 $TRPAD: .WORD 
062 9 0565 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 
062772 056356 STYPOC ::CALL=TYPOC = TRAP#2(1044 3) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
774 056332 STYPOS =:CALL=TYPOS | TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
776 056372 STYPON ::CALL=TYPON  TRAP#4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
06 096106 STYPDS ::CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
063002 05603 STYPBN ::CALL=TYPBN  TRAP+6(1 ) TYPE BINARY (ASCII) NUMBER 
063004 061720 SGTSWR ;;CALL=GTSWR § TRAP+7(104407) GET SOFT-SWR SETTING 
06 i SCKSWR s:CALL=CKSWR § TRAP+10(104410) TEST FOR CHANGE IN SOFT-SWR 
06301 SRDCHR ::CALL=RDCHR = TRAP#11(104411) TTY TYPEIN CHARACTER ROUTINE 
06301 SRDLIN ::CALL=RDLIN TRAP+12(104412) Hy TYPEIN STRING R ROUT INE 
06301 DOCT ::CALL=RDOCT  TRAP#+13(104413) R R FROM TTY 
06301 SSAVREG 33CALL=SAVREG —TRAP+14(1 414) ait ve R RO-RS_ AG ROUTINE 
06 5736 SRESREG ::CALL=RESREG TRAP+15(104415) RESTORE ROUTINE 
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DOWN AND UP R 


063080 91 


pa or Sr er Peer Per Per er Per er 
MASS ee5 > 
SS 


CSOCooooooooo 


RE ag 
063079 363 
063070 000000 
063072 000776 
063076 Sy 737 
Se: Bt 
Beale Rieae 
Sst Site 
Se Hee 
132 01260. 
i ; 601 
U8 fies 
146 910737 
1 ee dt 
156 1 
160 

063162 

Reece 6 
sg, 00H 


; 000024 


rr 


0635074 000024 


O6S16¢ 000024 
166 
063166 
063166 
116030 


000086 


120 


000026 





SEQ 0245 


~SBTTL POWER DOWN AND UP ROUTINES 


© RRARERARARRERREREAEREREEEEEEEEARAAREREAARERAARAEAEERAERERERRERREEREE 


A340 SABURVECS C; Ft AM FOR FAST UP 


@ Ge Ge Ge Se Se Ge Ge 
e Ge Ge Ge Ge Ge Se Se 
ae 
o 
x 


33HANG UP 


32 SRRARAAARARERERERREREEEEREREREEERARERERAERERERRREREREREREREEEEEE 


*POWER DOWN ROUTINE 
$PWRON: MOV 
MOV #34 RVEC+ 
MOV 
MOV Ry =P) 
MOV Reo~(SP) 
MOV R3,-(SP) 
MOV R4,=(SP) 
MOV R5,-(SP) 
MOV SUR, -(SP) 
MOV sp $SAVR6 
MOV 
HALT 
BR 72 
“POWER UP ROUTINE 
$PURUP: MO 
MOV SSAVR6,SP 
CLR SSAVR6- 
1$: INC SSAVR6 
BNE 1 
MOV (SP)+,aSwWR 
MOV (SP)+,R5 
MOV (SP)+,R 
MOV (SP)+, 
MOV (SP)+ .Re 
MOV (SP)+,R 
4d ( a nea 
MOV #340, OMbURVECYS. 
SPWRMG: ,vne SPOWER 
SILLUP: HALT ‘ 
SSAVR6: 
SPOWE 


R: .ASCIZ <15><12>°'POWER"’ 
eEVEN 


#SILLUP Q#PWRVEC 5; SET rm FAST DOWN 


SIWAIT LOOP FOR THE TTY 
3sWAIT FOR THE INC 
WORD 


::Pop STACK INTO aswr 
;sPOP STACK INTO R 
POP STACK INTD R4 


NTO R 
THE POWER DOWN VECTOR 
jbRios? THE POWER FAILURE 

sPOWER FAIL MESSAGE POINTER 

;THE POWER UP SEQUENCE WAS STARTED 


; BEFORE THE POWER DOWN WAS COMPLETE 
;3;PUT THE SP HERE 


mo 
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APT COMMUNICATIONS ROUTIN 
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SEQ 0246 


~SBTTL APT COMMUNICATIONS ROUTINE 


© RRERRRAAREARREREEEREEEEEEEEAERERARREERERREAEARARAARRERERERERRERRE 
: v8 


$ATY1: MO #1,SFFLG 
SATY3: MOVB 4#1,SMFLG 
BR SATYC 
SATYA: MOVB «#1, SFFLG 
MOV RO,=(SP) 
MOV R1,=(SP) 
TSTB = SMFLG 
BEQ 5$ 
CPB #APTENV, SENV 
B1TB #APTSPOOL , SENVM 
MOV a4(SP),R 
ADD #2, ase) 
1$: TST S$MSGT 
BNE 1$ 
MOV RO, SMSGAD 
2s: TSTB = (RO) + 
BNE 2$ 
SUB SMSGAD RO 
ASR RO 
MOV RO, $SMSGLGT 
mov a, *SMSGTYPE 
3$ MOV a4(SP) ,4$ 
ADD #2,4(SP) 
MOV 177776,=(SP) 
JSR »STYPE 
4$: WORD 
5$: 
10$:  TSTB  $FFLG 
BEQ 12$ 
TST SENV 
BEQ 12$ 
11$ TST SMSGTYPE 
BNE 11$ 
MOV a4 (SP) SFATAL 
ADD 42,4 (SB) 
INC Saget YP 
12$:  CLRB sFELG. 
CLRB ss SLFLG 
CLRB = SMFLG 
V (SP)+,R1 
V (SP)+,RO 
RTS PC 
SMFLG: .BYTE 
SLFLG: -BYTE 
SFFLG: -BYTE 
APISIZE = * 0 
APTENY 1 
APTESUE = = O06 


33TO REPORT FATAL ERROR 
33T0 TYPE A MESSAGE 


3270 ONLY REPORT FATAL ERROR 
:zPUSH RO ON STACK 
PUSH R1_ON STACK 
$}SHOULD TYPE A MESSAGE? 
3 SOPERATING UNDER APT? 
$ESHOULD SPOOL MESSAGES? 
seer MESSAGE ADDR. 
ETURN ADDR. 
13 SEE IF "BONE W/ LAST XMISSION? 
eur ADDR IN MAILBOX 
[FIND END OF MESSAGE 

ae START OF MESSAGE 
:3GET MESSAGE LNGTH IN WORDS 

[PUT LENGTH IN MAILBOX 
tITELL APT TO TAKE MSG. 


33PUT MSG ADDR RETURN LINKAGE 


ADDRESS 
:2:PUSH 195946 ON S 
S:CALL TYPE facno’ 


33 SHOULD REPORT FATAL ERROR? 
31F NOT: BR 
3S RUNNING UNDER APT? 
j FINISHED LAST MESSAGE? 
NOT: WAIT 


$IGET ERROR # 

“BUMP RETURN ADDR. 
ze TELL wii TO TAKE ERROR 
*3CLEAR FATAL FLAG 
33CLEAR LOG FLAG 

3CLEAR MESSAGE 


: TRETURN 
+ IMESSG. FLAG 
33L0G FLAG 
33FATAL FLAG 
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CONSOLE MESSAGES 


~SBTTL CONSOLE MESSAGES 
erg + Astle <CRLF>@CANNOT RECOVER THE BAD SECTOR FILES ON THIS DEVICE@ 


: 4 103 101 
4 0333s a 000 SASCIZ 
5 063534 101 114 114 :  .ASCIZ @ALL@<CRLF> 
06 541 040 977 40 QUES: <ASCIZ a? @ 
545 054 0 COMMA: :ASCIZ @ 
8 06 550 00 124 117 MSHELP: :ASCII < 
00 1 125 "ASCII <CRLFD@ 
10 0687 4 00 102 105 “ASCII LF> 
11 064012 00 124 110 "ASCII © <CRLF>@THE 
1 964100 90 110 101 “ASCII 
1 064127 "ASCII F 
14 0641 300 124 131 *ASCIZ 
15 161 00 122 115 CNSLO1: :ASCIZ <CRLF>@RMCS1 
6 064171 040 114 111 CNSLO2: .ASCIZ @L 
17 064233 12 115 126 CNSLO3: .ASCIZ 
18 064242 040 114 111 CNSLO4: .ASCIZ 
19 76 00 124 131 L07 “ASCH 
064 00 101 116 *ASCIZ <CRLF> 
1 064440 00 CNSLOB: "ASCII <CRLF> 
4 064441 940 077 111 CNSLO9: :ASCIZ @ ?ILLE 
064462 00 104 122 MSDRVS: .ASCIZ <CRLF>/DRIVE(S): 
% 064476 104 122 111 MSGDRV: .ASCIZ /DRIV 
5 064504 200 125 116 SYSTAT: .ASCIZ 
26 064522 122 115 07 0: :ASCIZ /RM&O/ 
27 0645 040 116 117 NOTRM: .ASCIZ / NOT AN RM80 
28 064544 040 114 117 LODEV: :ASCIZ / LOAD DE 
064561 040 116 117 NOTPRS: .ASCIZ / NO 
064576 0 116 117 NOTAVL: .ASCIZ / NOT 
1 06461 040 117 106 UNTOFF: .ASCIZ / OFFLI 
064626 940 117 116 UNTON: .ASCIZ / ONLI 
0646 00 104 122 DRIVES: .ASCIZ < 
06466 116 117 116 NONE:  .ASCIZ / 
5 064672 116 000 N: SASCIZ /N/ 
064674 131 000 Y: “ASCIZ «/Y/ 
7 064676 040 BLNKS4: :ASCII / / 
064677 040 BLNKS3: .ASCII] / / 
9 064700 040 BLNKS2: .ASCI] / / 
40 064701 040 000 BLNKST: “ASCIZ / / 


a 
ERLF>@TO ENSURE THAT NO BAD HEADERS ARE LEFT ON THE DISK@ 
CR EE THIS PR D 


pin te Me | 4 ys ae t BE HALTED WHEN THE DRIVE UNDER TES 
<ERLE>aTYPE HELP TEXT (L) N? @ 

IMITS = LO= 160000, HI= 17XXXX@<CRLF> 
iT HI= 1000@<CRLF><LF> 


O TEST ALL DRIVES 
TERMINATE INPUT WITH A 


OR TYPE DRIVE NUMBER(S)@ 
ARRIAGE RETURN.@ 


@ LIMITS - LO= 0 
<CRLF>@TYPE "'A’’ f 
@AND 

DRIVE/ 
<CRLED/UNIT STATUS: / 
E 
T PRESENT/ 
AVAILABLE/ 


NE/ 
CRLF>/DRIVE(S) TO BE TESTED/ 
NONE / 


SEQ 0247 
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FUNCTION CODE TABLE 
1 ~SBTTL FUNCTION CODE TABLE 
: ;THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR 
¢ SEACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS: 
6 : ATA = BIT 15 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
4 31F ATA SHOULD BE SET WHEN THE FUNCTION CODE IS EXECUTED, id da 
8 :B1T 15 IS ZERO, INDICATING THAT ATA SHOULD NOT Y 
9 db THAT A Y SET WHEN _A COMMAND IS EXECUTED EVEN THOUGH 
19 31T IS NOT EXPECTED AS A RESULT OF THE COMMAND. 
\s WCE = BIT 14 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
SIF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND. 
15 OPI = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
1$ ‘IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
18 IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
19 IF IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 


SSSBNEARUNSSBVSVRGRAVLS 


4 


& 


3 064704 020000 


WLE = BIT 11 IS SET IN THE ENTRY FOR A GIVEN Aes Yb CODE 
IF WRITE” ERRORS ARE ENABLED DURING THE FECTS OF THAT C 
[THE WRITE ERRORS WHICH ARE ENABLED ARE “Wer, SPE “UPE". 


IAE = BIT 10 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE 
IF INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND. 


AOE = BIT yA IS SET IN THE ENTRY FOR A GIVEN sv ites oe CODE 
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF T 
;COMMAND. THE FEAT ORS oe NLED BY THIS BIT ARE ‘TRE’’, “DLT’’, ‘NE 


;"MXF**, “LBT’ 
: BIT 08 IS NOT USED. 

HCE - BIT 07 IS SET _IN THE ENTRY FOR A GIVEN ree in CODE 
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND. 
ZHEADER ERRORS INCLUDE "WCRC’’, ‘HCE’, ‘FER’, BSE". 


ECH = BIT 06 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE 
tIF_DATA FIELD ERRORS ARE ENABLED DURING, THE, EXECUTION OF THA 


[COMMAND. THESE ERRORS INCLUDE 'MDPE''’, ‘DCK"’, 

: BIT 05 IS NOT USED. 

é BIT 04 IS NOT USED. 

j BIT 03 IS NOT USED. 

j BIT 02 IS NOT USED. 

: BIT 01 IS NOT USED. 

: ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL. 
FNCDTB: sFUNCTION CODE TABLE 


WORD OPI sNOP 


ao 
2 
o 


3 


dd ad et m 


| 


—~ 
ry 


pesss SSS SSSSSSS5555 


SEFEEE 


RURALNSLSISISINATISSEISASERASSS 
SIRNSES 


a8 
S 





Stone 
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1 eWORD OPI!ATA!ILF!IVC sILLEGAL FUNCTION (2) 
1 eWORD ATA!OPI!IVC!IAE 2 SEEK 
1 eWORD ATA!OPI! IVC ;RECALIBRATE 
8 -WORD OP DRIVE CLEAR 
eWORD OPI!IVC :RELEASE 
1 «WORD OPI!ATA!IVC OFFSET 
1 eWORD OPI!ATA!IVC RETURN TO | | Lata 
6 eWORD OPI READ IN PRESET 
eWORD OPI sPACK ACKNOWLEDGE 
1 eWORD OPI!ATA!ILF!IVC ILLEGAL FUNCTION 8 
1 eWORD OPI!ATALILF! IVC ZILLEGAL FUNCTION (26) 
1 WORD ATA!OPI!IVC!IAE 3 SEARCH 
1 eWORD OPI!ATALILF!I ZILLEGAL FUNCTION (32) 
01 WORD OPI!ATA!LILFiIVC sILLEGAL FUNCTION (34) 
21 eWORD OPI!ATALILFIIVC sILLeE FUNCTION (36) 
1 - WORD T!ATALILF II sILLEGAL FUNCTION (40) 
1 ~WORD OPI!ATALILFIIV ZILLEGAL FUNCTION (42) 
1 eWORD OPI!ATALILF!IVC ZILLEGAL FUNCTION (44) 
1 - WORD I!ATA!I :Iv¢ sILLEGAL FUNCTION (46) 
6 eWORD WCE!OPI!IVC!IAE!AOE!HCE!ECH sWRITE CHECK DATA 
“WORD WCE!OPI! IVC! IAE!AOE!HCE!ECH sWRITE CHECK HEADER AND DATA 
1 1 WORD OPI tATA: ILE t IVC ZILLEGAL FUNCTION (54) 
1 1 WORD OPI!ATA!I ZILLEGAL FUNCTION (56) 
° - WORD Opt IVCIULE TAE AOE HCE sWRITE DATA 
7000 - WORD !IVC!WLE ! IAE! AOE sWRITE HEADER AND DATA 
1 1 - WORD 'ATALILF! IVC sILLEGAL FUNCTION (64) 
1 1 WORD OPI!ATA!ILFiIVC sILLEGAL FUNCTION (66) 
0 WORD OPI!IVC!IAE!AOQE!HCE!ECH sREAD DATA 
033300 WORD OPI!IVC!IAE!AOE!HCESECH sREAD HEADER AND DATA 
1 1 WORD OPI!ATA!ILF! IVC SILLEGAL FUNCTION (74) 
21 1 WORD OPI!ATALILF IVC ZILLEGAL FUNCTION (76) 
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ATTENTION (ATA) TABLE 


-SBTTL ATTENTION (ATA) TABLE 
ATNTBL: .BYTE 1. 


Sesar 


DAAAAATIA 
ooo 

as at 

WN-O 


SOOWONOUS WN 


SRSSSSOS 


1 

2 
62 099 - ByT 8. 
‘BYT i$ 
960 YTE 64 
200 12 


—= 
Goe ee 
° 


SEQ 0250 


G 4 
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DATA PATTERN TABLE El 

1 .SBTTL DATA PATTERN TABLE 

g 065014 RGDTPT: 

4 14 MIXED: 

§ 14 .WORD 0. 

b 501 1 “WORD 1. 
0650 3 “WORD 3. 

8 50 WORD 
065024 17 *wORD 15. 

10 065026 000037 [WORD «31. 
11 0650 “WORD 63. 
1g 0650 177 “WORD 122. 
13 0650 377 WORD g35- 
14 0650 777 “WORD 517 
15 065040 001777 WORD 1023. 
1g 065042 003777 WORD 2047. 
17 065044 007777 WORD 4095. 
18 065 17777 “WORD 8191 
19 06505 057777 “WORD 16383. 
065052 077777 “WORD 32767. 
1 065054 177777 ONES: .WORD 65535. 
é 065056 177777 “WORD é 535. 
3 065 077777 “WORD 2767. 
% 065062 037777 “WORD 3. 
25 065 017777 “WORD 8191. 
065066 007777 WORD 093. 
0650 3777 WORD 7. 

8 065072 001777 "WORD 1023. 
065074 000777 “WORD 511. 
065076 000377 [WORD 255. 

1 065100 000177 WORD 7: 
065102 000077 “WORD ‘ 

3 065104 000037 “WORD 31. 
065106 17 “WORD «15. 

5 065110 7 “WORD 7. 
06511 3 “WORD 3. 

7 065114 000001 “WORD 1. 
065116 000000 ZEROS: WORD 0. 
0651 “WORD 0. 

40.0651 1 “WORD 1. 
£3 bea] 4 ‘tone 
os sles uae a3 
45 be31 rs WORD i$: 
46 0651 100 “WORD 64 
47 065140 200 WORD 1¢8. 
48 068142 000400 WORD ; . 
49 0651 1000 “WORD 512. 
50 06514 000 “WORD 1024. 
1 06515 “WORD 2048. 
¢ 06315 1 “WORD 4096. 
rT “WORD 819 
065156 “WORD 3 , 
32 34 i “uN 78: 
38 be31 04 "WORD 16384. 


SEQ 0252 
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~ 
w. se I e*ees + e [Ow ee se Oo eeeeee#es#e#8e#8*# mn . a *e rey ~ 

sees 

2 és AAA OTODN OS IAS SXISSYAsSor~ m 

oa furwOm@ «+ « MMNMANNMA PS SOCUOMN SSM nem DO PIN SERRANO 

- mWCuF TNO 2+ 2 2 © Eratatatatatatatatatat tate eta" Beta catataratatatataal LSA 

DS ONAN SMreOTNK GOSODOSOODODOGONSMOOMTANOOGOSOOCCOCOOOTFFTOO00O 

SESSSSSSSSSSSSSSSS SSSR RR SSRSSESSSSSSSSS SSS SSSssscccesSSSS 


Fi eck eek peek see aieeh ieee see seek nee ieee one eee ee Ce ek a ek ad eek aed ek eel ek ol ed el el ol eh 


s 
Ne 
- 
ows ise O Mo 
sree Pesos BOR eS tts gots ONLI ETS 


AMMARAMAMAMAMANAAAMAAMAAMAAMADLATALALAIAAAALAATAIAALAALAALALALALALA AAA ALAA 


SSSSSSSESSSSSSSSSSSESSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSES 
LAYSSYBSSSSSSLCLLNLLKLRGSVISSSBSORACATOSOTRSOSOSOSSSoS SESS 


el oe eek cee ek cok ce ol cee oe ed oe ee 


SSeS CUES SSS NERS ee SNe 





Ss 
=~ 
>2 
ES 
= 
_ 
38 
2 
Bo 


cT 


ab ed ed RA aD 


AFWN—OOCONOuW 


RRRFSSSSSESSSSESESESSESSEE 


iw 


PUPP AAIIT 


ee ee ce ce me ee ce ee ce a ee ee ce ce ce ce ce ee ee ed ee ee ed ed ed ed eed eed ee 


£06 
8 065402 
404 
54 
1 06541 
541 
5414 
541 
5 0654 
54 
5424 
54 
9 0654 
40 0654 
41 0654 
$$ 065436 
43 065440 
44 065442 
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E 
177757 -WORD 65519. 
177737 «WORD $3703. 
177677 - WORD $3¢ 1. 
177577 - WORD 3390 
177377 «WORD 65279. 
176777 ~WORD 65 $3 
175777 eWORD 64511. 
173777 - WORD eth Ss 
167777 - WORD gis 9. 
157777 » WORD 7343. 
137777 eWORD 49151. 
8 777 - WORD $5505" 
77777 - WORD 4 og 
13erre eWORD 49151. 
157777 eWORD 57343. 
Voeere -WORD 61439. 
173777 -WORD 63487. 
175777 eWORD 64511. 
176777 - WORD 63063 
77377 -WORD 65279. 
77577 - WORD 63707 - 
177677 eWORD 65471. 
177737 eWORD 65503. 
177757 »WORD 65519. 
177767 eWORD 65527. 
177773 -WORD 65531. 
177006 "WORD 65534. 
177777 -WORD 65535. 


ENRGDT: 


& 


SEQ 0253 


C2 
ER 


me 
a2 


UVUPUNUSSESEGRES SESE URUNESVSVRURONISSaVAARUN=Sowvousuv— BS 
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»SBTTL ERROR MESSAGE TABLE 


3 ; 














2 73102 EMT1: . EMS1, 
3446 721 : WORD €EMS2.EMS3, 
0654 g 1 } : -WORD EMS “EMSA, 
2788 72276 : WORD EMSS Bsi6 0 
5476 07 70 6: “WORD 167, EMS64,0 
5504 075 MT7:  .WORD EMS110.ERS170,0 
5512 072371 10: WORD 7 
5516 072436 EMT11: .WORD 16 
0655 725 900000 EMTI¢: “WORD EMS11.EMS12,0 
0655 725 4 EMT13: .WORD EMS] MS15,EMS16,0 
065542 07 000000 EMT14: .WORD EMS? 
065550 07 EMT15: WORD €MS11 
065556 0725 9 10 EMT IG: “WORD EMS11 g-ENS 7.0 
065 725 73114 EMT17: .WORD €MS11 ‘EMS. “0 
065576 072500 1146 EMT20: .:WORD €MS11 °EMS30, 
065606 072500 73108 EMT21: .WORD €MS11 *EMS27,0 
065616 072500 73103 EMT : "WORD €MS11.EMS26.EMS27,0 
065626 07 500 73114 EMT23: .WORD €MS11 EMS30,0 
06 72500 73114 EMT24: .WORD €MS11 EMS30, 
065646 07 300 73114 EMT25: .WORD €EMS11 EMS30, 
065656 0725 73114 EMT 6: “WORD EMS11 EMS30, 
065666 072500 73114 EMT27: .WORD &MS11.EMS35,EMS30, 
069676 9 500 73114 EMT30: .WORD EMS11 *EMS30, 
065 72500 73114 EMT31: .WORD €&MS11,EMS37, . 
065716 072500 73116 ENTS¢: "WORD €MS11.EMS40.EMS30, 
065726 07 300 073114 EMT33: .WORD &MS11,EMS41,EMS30, 
065 0725 073116 EMT34: .WORD €MS11,EMS42,EMS30, 
065746 072500 73114 EMT35: .WORD &MS11,EMS43,EMS30, 
065756 07 500 73114 EMT36: .WORD &MS11,EMS44,EMS30, 
065766 072500 73114 EMT37: .WORD EMS 11 .ENS43 .EMS x 
065776 074403 EMT4O: <.WORD £&MS66,EMS20 
066004 074571 74 EMT41: <.WORD €&MS75.EMS141,EMS76,0 
066014 07 74505 EMT42: .WORD &MS144,EM sh EMS72,EMS76,0 
066026 07370 74577 EMT43: .WORD Enea? Ens -ERS76 
066036 074630 74577 EMT44: .WORD &MS77.E nei 
066046 074656 0740 74577 EMT45: .WORD €MS1 RSSAcoms rs 
56 074 74 74577 EMT46: .WORD €&MS101 Eee mre 
074335 07431 EMT47: .WORD &MS65,EM mSb4, 0 
066074 072552 072574 074 1 EMTSO: :WORD €MS1 “ERS! -EMSGS 
066104 0725 73656 073114 EMT51: .WORD ENS 11 .ERSS 
066116 9 740 07465 ENT3¢: “WORD EMS ERS) “ESS. Ons14 ,EMS141, 
134 073705 0740 74453 EMT53: WORD EMS4/, Enss a *EMS141.EMS164, 
066152 07 74 74453 EMT54: .WORD EMS50, 
0661 76317 076 74023 EMTSS: .WORD €&MS142 en a8 a 7,0 
066174 07 763 74525 074453 EMT56: .WORD €&MS51 RS7¢ FASS EMS6 Pity EmSSO.EMS70,0 
12 0770 74535 74453 EMT57: .WORD eae Sie 
22 0741 744 75265 EMT60: .WORD tS c-Enss ‘6 mS150,6 EMS152,EMS70, 
40 074512 0741 74453 EMT61: .WORD ee iece msi sERSI52, Pus72, 0 
76250 074453 075 nT G¢: “WORD Enstap met S47 .ERS 
4 20 10031 7 EMT63: WORD Pnsree'E 
066 5 $340 74500 EMT64: .WORD cu S115, EMS56 ENS73 EMSs? 0 
066 4 7401) 07313 ris28 ENT6S: -WORD ERSS ‘as ee thes i) sige" msi15, ete .EMS72,0 
066356 077027 074761 res bee “WORD a Eni “EASE EMS o1 " 


kK 4 
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ERROR MESSAGE TABLE 








SS RAETD USS STR ETERS ENTTE: MB EAE FRET TRICE 
60 06641 1370 745 767 ENTZ¢: “WORD *EMS72,€ .€MS115,EMS140,EMS141,0 
61 066426 O73705 O7éses O767e2 EMIZS: WORD  ENS4/<EMS7¢.ENSIG3.EMS119.ENS141.ENS72.0 
G5 066454 07451 0741 0767 ENT?3 -WORD EMS71 ERS “ERS! *EMS115,€MS150,EMS152,EMS72,0 
65 304 076317 07 9 EMT77: .WORD 142 easTES EMS -EMS163,0 
66 656516 074571 076271 076 EMT100: .WORD €MS75,€MS141,£MS163.EMS11 “EMS47 .EMS70.0 
67 066534 074571 6455 076722 EMT101: .WORD EMS75 EMS15 *EMS163,EMS115,EMS56.EMS73, 
69 066369 77070 074535 O767eg EMTIOG: .WORD ENSI6/ ENS/3 ERSIE?-0, 6s 
% 066574 69 303 74552 076 EMT104: .WORD €MS51 ener, S163 oes 1S éns50.EMS70,0 
£1 066612 077087 074636 76722 EMTI05: WORD  EMS169.ERS100,Ens165,0 
73 desess 2636¢ Breeze 0 0 aS "WORD £MS144,EMS145,EMS53,EMS163,EMS115,EMS143,EMS70,0 
74 066652 075065 0751 75270 EMT110: .WORD €MS110.EMS112-EMS116,EMS111,0 
TF Oeteee Oras oeeeee bb ERTTIe: {WORD ERSTT “Ens3¢0 
7? 066700 5 o7e568 $0098 ERTS: -WORD EMS110,EMS115,EMS116,EMS117,EMS114,0 
79 066716 075 076002 076026 EMT115: .WORD €MS121,EMS132.EMS1 3.0 
80 066726 075405 076002 076026 ENT116: “WORD EMS122.EMS132,EMS1 9 
81 066 442 076002 076026 EMT117: .WORD &MS123.EMS132,EMS133. 
82 066746 075505 076002 076026 EMT120: .WORD &MS124.EMS132,EMS133,0 
066756 075537 076002 076026 EMT121: .WORD &MS125,EMS132.EMS1 9 
84 066766 075602 076002 076026 EMT? g: “WORD £MS126.EMS132.EMS133. 
85 066776 076213 076002 076026 EMT123: .WORD &MS137.EMS132.EMS133. 
86 06 075 076002 076026 EMT124: .WORD &MS130.EMS132.EMS133, 
87 067016 075742 076002 076026 EMT125: .WORD &MS131,EMS132.EMS133, 
88 067026 075342 076002 076051 EMT? 6: “WORD £MS121.EMS132.EMS134,EMS123.0 
89 067040 075405 076002 076051 EMT127: .WORD &MS122.EMS132.EMS134.EMS123.0 
90 067052 076002 076051 EMT130: .WORD &MS123.EMS132,.EMS134,EMS125,0 
91 067064 075505 076002 076051 EMT131: .WORD &MS124.EMS132,EMS134,EMS123, 
3% 067076 075537 076002 076051 EMT? ¢ "WORD €MS125.EMS132.EMS134.EMS123. 
93 067110 075 2 07 76051 EMT133: .WORD &MS126.EMS132,EMS134.EMS123. 
9% 067122 7621 7 76051 EMT134: .WORD €MS137.EMS132.EMS134.EMS103, 
95 067134 075704 076002 076051 EMT135: .WORD &MS130.EMS132.EMS134.EMS123,0 
96 067146 075742 076002 076051 EMT136: .WORD &MS131.EMS132.EMS134.EMS123,0 
97 067160 75342 076002 076113 EMT137: .WORD €MS121.EMS132-EMS135, 
98 0671 75442 07 76113 EMT140: .WORD &MS123.EMS132.EMS135. 
99 067, 75342 07 76166 EMT141: .WORD &MS121.EMS132.EMS136, 
100 06721 7621 76002 076166 EMT 16@: “WORD EMS137.EMS132.EMS136, 
101 06 7 5 7 76166 EMT143: .WORD MSI 4 -ERSI *EMS136, 
108 755 7 76166 EMT144: .WORD &MS105.EMS132,EMS136, 
103 067240 075602 076002 076166 EMT145: .WORD &MS126.EMS132,EMS136, 
104 067250 075742 076002 076166 ENT 166: “WORD €MS131.EMS132,EMS136, 
18 Fore ee Bosrbe 07600 7eles Sar ISO, “HORD EMCI SO-ERSTSS-EMS136, 
199 067809 7 30 75265 07 ERTS: "WORD €MS140.EMS115.EMS141.EMS7 0 
108 067312 076317 075 63 76 EMT1 g: "WORD €MS142.EMS115.EMS143,EMS7 
109 067524 76 76 76421 EMT153: .WORD £MS144,EMS145,EMS146 Ens! 5 EMS143 EMs72 0 
110 06 7348 076 76372 072706 EMT154: .WORD £MS144.EMS14 “EMS@ €™S115.€MS143,€MS70,0 
111 06 764 7658 76566 EMT155: .WORD EMS 150.ERS1 *EMS154,EMS1 3. 
11 067372 076440 0764 765 ENT 136: "WORD €MS147.EMS151.EMS154.EMS155. 
113 067404 07644 76474 076622 EMT157: .WORD €MS147.EMS151,EMS1 6.ENS197. 
114 067416 076672 076622 076655 EMT160: .WORD &MS161.EMS156,EMS160, 
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15 067426 07 731 76622 EMT161: .WORD €MS25,EMS27,EMS156,EMS160, 
1g 744 oF q3! 7 ENT 16¢: WORD ENso6-ENS27 EMS156 me 00 "0 
17 067452 9737 767. 76 EMT163: .WORD EMS4 -EMS165 EMS140,0 
18 06746 Ore 5 0727 EMT164: .WORD &MS47,EMS20, 
19 0674 74106 72706 000 EMT165: .WORD EMS56,EMS20, 
20 067476 073656 072706 000000 ENT I66: “WORD EMS4 ENS20 
1 067504 100216 07 206 EMT IG : [WORD €EMS224,EmS20 
@ orble 077454 0762 1 073114 EMT170: .WORD EMS 3-ENS14/ .EMS30 EMS202,0 
067524 077070 076566 76640 EMT171: .WORD &MS167.EMS154,EMS157,0 
24 067534 077070 076566 076602 EMT172: .WORD EMS 167 .ENS154.EMS195.0 
25 067544 077144 076002 076026 EMT173: .WORD EMS1 1-ERS1$ -EMS135.0 
26 067554 077144 07600 076051 EMT174: .WORD EMS171.EMS1 -EMS1 4°EMS123,0 
27 067566 075211 07731 000 EMT175: .WORD €&MS113,EMS177, 
38 067574 077341 077356 000000 EMT176: .WORD &MS200,EMS201,0 
29 067602 000000 EMT177: .WORD 
30 067604 077454 073763 073114 EMT200: .WORD EMS O3.ENS51 EMS30,EMS202,0 
31 067616 077454 077467 073114 EMT201: .WORD &MS20 -EMS204 ENS 30, EMS202 0 
32 067630 077454 073734 073114 ENT20: "WORD EMS203.EMS50,EMS30,EMS202,0 
33 067642 077454 076336 073114 EMT203: .WORD EMS203.EMS143,EMS30,EMS202,0 
34 067654 076455 074552 077406 ENTZ04: "WORD EMS150,EMS74,EMS ge EMS115.EMS152,EMS72,0 
35 067672 073736 074761 074525 EMT205: .WORD EMS50.EMS103,EMS72,0 
36 067702 074770 074535 077424 EMT206: .WORD €&MS104 ENS73.EMS20.0 
37 067712 074571 076271 075265 EMT207: .WORD &MS75,EMS141,EMS115,EMS140,0 
38 067724 074571 076455 000000 EMT210: .WORD &MS75,EMS150,0 
39 073763 074525 075265 EMT211: .WORD €EMS51 ENS72 €MS115,EMS50,EMS70,0 
40 067746 076317 074023 075265 EMT212: .WORD &MS142,EMS55,EMS115,EMS143,EMS/2,0 
41 067762 073734 074761 074023 EMT213: .WORD &MSSO,EMS103.EMS53,0 
42 067772 074011 077515 0770463 EMT214: .WORD E&MS52.EMS205,EMS166,EMS206,EMS115,EMS51,EMS72,0 
43 070012 074011 075320 074106 EMT215: .WORD EMSS2.EMS117,EMS56,EMS163,0 
44 0700246 074106 073114 074317 EMT 16: “WORD EMS56.EMS30,EMS64,0 
45 070034 073656 073114 074317 EMT217: .WORD &MS46,EMS30,EMS64.0 
46 07 073124 073114 074317 EMT220: .WORD EMS31,EMS30,EMS64,0 
47 070054 073705 073114 074317 EMT221: .WORD &MS47,EMS30,EMS64,0 
48 07 074011 075320 074630 EMT g: “WORD EMS52.EMS117,EMS77,0 
49 070074 074011 075320 074271 EMT223: .WORD &MS52.EMS117. 0 
50 070106 074011 075320 100270 EMT224: .WORD EMSS2.EMS117.EMS225,EMS115,EMS226.0 
51 070120 100270 100342 100353 EMT225: .WORD &MS225,EMS227,EMS230,EMS115,EMS156,EMS231.EMS57,0 
52 070140 072500 100353 073114 EMT 6: “WORD &MS11_,EMS230,EMS30 p 
53 070150 100270 100313 075265 EMT227: .WORD EMS225,EMS226,EMS115,EMS230,EMS72,0 
54 070164 000000 EMT230: .WORD 
55 070166 000000 EMT231: .WORD 
56 070170 000000 EMT232: .WORD 
i SBITE $888 isu: “a 
59 070176 it EMT235: .WORD 
60 970200 000000 EMT “ WORD 
61 070202 000000 EMT “WORD 
62 070204 EMT240: .WORD 
6 2 EMT241: .WORD 
64 1 EMT242: .WORD 
65 EMT243: .WORD 
166 EMT244: .WORD 
167 EMT245: .WORD 
168 76002 077554 EMT246: .WORD EMS 167. EMS15 ,£MS207,0 
169 76002 077601 EMT247: .WORD £MS167.EMS132.EMS 10,Ems125..0 
170 077612 077601 EMT250: .WORD EMS 167 .EMS¢1 “EMS 10, EMS207,EMS206,0 
171 07765 0000 EMT251: .WORD €&MS212.EMS213, 
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172 070 77027 077630 EMT252: .WORD €MS165,EMS212,0 
17 Orders 76440 076474 09008 EMT 26 "WORD £MS147.EMS151.EMS156,EMS210,EMS26,EMS27,0 
174 07031 454 074706 073114 EMT254: .WORD EMS20 -EMS101,EMS30. 
175 070320 077454 077070 073114 EMT255: .WORD EMS 0 -EMS167 ,EMS3 0 
176 070330 077454 074656 073114 EMT 36: “WORD EMS203,EMS100,EMS30 
177 O34 072500 073656 073114 EMT257: .WORD EMS11,EMS46 EAS 30 EAS 102 0 Al 
178 070352 074011 075320 074106 EMT260: .WORD €MS52.EMS117,EMS : EMS102,0 Al 
179 074011 07751 1000 0 EMT261: .WORD EMSS ENS203 .EMS2 §.£MS206,EMS115,EMSS1 .EMS72.0 Al 
180 070404 074770 074535 077426 EMT262: .WORD &MS104,EMS73,EMS202 Al 
181 070414 073 074023 074732 EMT263: .WORD &MS5O,E 33-EMS! a) Al 
182 070424 074106 074023 074732 EMT264: .WORD EMS56,EMS53,EMS102,EMS115.EMS150,EMS152,EMS70.0 Al 
183 0 074512 074106 074732 EMT265: .WORD EMS71.EMS56,EMS102-EMS115,EMS150,EMS152,EMS72,0 Al 
184 0 076317 076334 074023 EMT266: .WORD &MS142,EMS143,EMS53,EMS102,0 Al 
185 070476 073734 076421 075265 EMT267: .WORD EMSSO,EMS146,EMS115,EMS52,EMS117,EMS46,0 Al 
186 070514 073705 074023 074732 EMT270: .WORD EMS47.EHS93.EMS102,ENS11 °EMS140,0 Al 
187 0 073705 074023 074732 EMT271: .WORD &MS47,EMS53,EMS102,EMS115.EMS141,EMS72,0 Al 
188 070546 074571 076271 074732 EMT272: .WORD EMS75.EMS141,£MS102,EMS115,EMS47,EMS73,0 Al 
189 070564 073763 07455 074732 EMT273: .WORD EMS51 -EMS74.EMS102 £MS115,€MS50,EMS70,0 Al 
190 070602 074271 07402 074165 EMT274: .WORD EMS63,EMS53,EMS57,EMS1 15,£MS41,€MS146,0 Al 
191 070620 075270 074023 073434 EMT275: .WORD €&MS116 ERS EMS41,EMS57.0 Al 
192 070632 073705 074023 074163 EMT276: .WORD &MS47,EMS53,EMS57.EMS115.EMS140,0 Al 
193 070646 073705 074023 074163 ENTG?7: "WORD EMS47.EMS53,EMS57.EMS115.EMS141,EMS72,0 Al 
194 074106 074023 074163 EMT$00: .WORD &MS56.EMS53.EMS57.EMS115.EMS150,EMS152,EMS70,0 Al 
195 070704 074512 074106 074023 EMT301: .WORD EMS71 ENS56, EMS MS57,EMS115,EMS150,EMS152.EMS72,0 Al 
196 070726 077027 074656 074761 EMT302: .WORD EMS165,EMS100,EMS103,EMS57.0 A 
197 070740 077027 074704 074761 EMT303: .WORD &MS165,EMS101,EMS103,EMS57,0 A 
198 070752 077027 074630 074761 304: “WORD £MS165,EMS77.EMS103,EMS57,0 A 
199 070764 073656 073114 074317 EMT305: .WORD &MS46,EMS30, 64, 20 A 
200 6 073734 074023 074163 1306: “WORD EMSSO,EMS53,EMS57 A 
501 071006 073734 076421 075265 EMT307: .WORD &MS50.EMS146,EMS11 -EMS52 .EMS117,.EMS46,EMSS7 .0 A 
502 071026 076317 076334 074023 EMT310: .WORD &MS142,EMS145,EMS53,EMS57, A 
503 071040 074770 074761 074023 EMT311: .WORD &MS104.EMS103.EMS53,EMS57, A 
504 071052 075017 074761 074023 EMT312: .WORD &MS105,EMS103,EMS53,EMS57,0 A 
205 071064 076362 076372 074761 ENTSI : [WORD €MS144.EMS145,EMS103,EMS57,EMS115,EMS143,EMS70,0 & 
206 071104 073462 074761 074023 EMT314: .WORD EMS42 -EMS103.ENS33.E4S97..0 A 
507 071116 073124 074761 074023 EMT315: .WORD EMSS *EMS103,EMS53,EMS57,0 A 
208 071130 074512 073126 074761 EMT 16: “WORD €EMS71,EMS31 ENS103. MS57.0 A 
071142 073511 074761 074163 EMT317: .WORD &MS43,EMS1035,EMS57, A 
210 071152 073613 074761 074163 EMT320: .WORD &MS45,EMS103,EMS957, A 
31] 071162 073540 074761 074163 EMT321: .WORD &MS44.EMS1 “EMSS, A 
12 071172 075046 706 EMTS g: "WORD £MS106,EMS 0. A 
513 071200 073330 074761 074163 EMT323: .WORD &MS36,EMS103,EMS57,0 A 
314 071210 077217 073330 074761 EMT324: .WORD &MS175,EMS36,EMS1 $.Ems57.0 A 
313 071 22 077177 07 330 074761 EMT325: .WORD &MS172.EMS36,EMS1 ENS5/ A 
16 071 072552 077236 072574 EMT326: .WORD EMS13,EMS174.EMS15,EMS395 EMS53,ENS175.0 A 
517 071252 076440 076474 074552 EMT327: .WORD &MS147 Ens 151 EMS74 —MS175,0 A 
218 071264 074403 074023 078k EMT330: .WORD »€MS53,EMS175,0 é 
219 071276 07320 74761 7402 EMT331: .WORD EMS -EMS10$,ENS53.EMS175 0 r 
20 071 73405 074761 074023 EMT3 g: “WORD EMSA. EMS! EMS53,€MS57,0 A 
21 0713 075765 74552 074163 EMT333: .WORD 51 .EMS74,€MS57,EMS115,EMS5O EMS70 0 A 
22 0713 74571 076271 076163 EMT336: .WORD &MS75.EMS141,EMS57,EMS115,EMS47,EMS/5.0 A 
23 071354 074571 076455 76520 EMT335: .WORD &MS75,EMS150 ENS156 .EMSS7.EMS115 .EHS36,EMS73.0 a 
224 071374 074211 16g 4 074 EMT 6 “WORD £EMS60,EMS61 EMs62 A 
305 71404 075270 075 0 73 30 EMT "WORD €MS116,€MS117,EMS34,0 A 
26 071414 073230 0740 74035 EMT340: .WORD EMS34,EMS53,EMS54,EMS111,0 A 
227 071426 074057 O73¢ 0 90000 EMT341: .WORD “EMS i 
558 071434 074011 075320 074106 EMT342: .WORD &MS52.EMS11/7,EMS56,EMS57,0 ‘ 
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71446 074011 075320 073613 EMT343: .WORD €MS52,EMS117,EMS45,EMS57, 
% 714 oreoit oe 0 o73e) EMT344: .WORD &MS52.EMS117,EMS44 ones 
1 0714 74011 078 10004 EMT345: .WORD €MS52.EMS117.EMS : : 
3 71502 075046 0 075265 EMT 46: “WORD EMS106 ENS O.EMS 3 -ENS223 .EMS72,0 
071516 074011 077515 100110 EMT347: .WORD EMS52,EMS -EMS22 EMS 6.0 
071530 074571 076455 074732 EMT350: .WORD &MS75.EMS1 O.EMS! “MSI *EMS56,EMS73,0 
35 071546 077070 074535 074732 EMT351: .WORD &MS167,EMS73.EMS102, 
236 071556 077714 000000 EMT 38: “WORD , 
237 071362 077765 077454 077735 EMT353: .WORD &MS217.EMS203,EMS216,0 
238 071572 1 072706 000000 EMT354: ;WORD EMS221.EMS20, 
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é ENTS3 $e EH 37 STSH1 s$t3ig. STSH4,0 
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EHT353: EH353,0 


oo 
NN ANN NNW 
ab =? 
mm for 
on 
fo 
oon 
mm 


IN 

ae 

a 3 
tal 


td od ot 
oe ooo ooo 
= 


N 
a 
ny 
So 


E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
E 
£ 
E 
E 
E 
E 
E 
t 
t 
t 
. 
I 
[ 
| 
{ 
{ 
t 
{ 
{ 
( 
| 
I 
{ 
{ 








C 
CZRNEAO RM8O FCTNL PT2 MACRO V04.00 28-JAN-82 16:38:23 PAGE 55 SEQ 0260 
ERROR GE TABLE 







MESSA 

071724 101512 101606 1 16 4 EDT1: .WORD €D1,$TSD1,S$TSD2,STSD4 
gon 20g 1oieoe 4 656 EDT: “WORD STS 561. $TS62,STSH4 
4 071742 101520 EDT110: .WORD €D11 
: 7174 191382 EOrt: WORD ota 

71746 10153 EDT114: .WORD D117 
8 7175 191345 101606 101624 EDT223: .WORD £oD8,STS01, STSD2,STSD4 
10 0717 10155 101606 1016 4 EDT 36: «WORD ED -$TSD1, STSD + $TSD4 
11 071770 101564 101606 101624 EDT337: .WORD ED D1,STSD2.STSD4 
ig 72000 191364 101606 101624 EDT344: .WORD D337, STSp1. STSD2,STSD4,0 
14 101576 EDT353: .WORD D353 
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1 07 1 101707 101707 EFT1: .WORD €F111,STSF,STSF.STSF 
g babes 191833 07 191509 191785 EFT2: WORD STSF,STSF,STSF - 
4 07 101670 EFT110: .wORD F110 
Oreos 101671 EFT111: .WORD F111 
72036 1016 EFT114: .WORD F114 
8 7 6 1918 101707 101707 saat “WORD EF 114,STSF,STSF,.STSF 
10 072050 101676 101707 101707 EFT 36: . WORD EFS STSF,.STSF.STSF 
11 07 4 101676 101707 101707 EFT : WORD EF336,STSF,STSF.STSF 
\§ 7 101676 i 1707 101707 EFT : .WORD €EF336,STSF, *STSF. *STSF 
14 072100 101673 EFT353: .WORD F114 
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ERROR MESSAGE STRINGS 





SEQ 0265 


RMER2@ 
RMDC@ 


a@<CRLF> 


TA@<CRLF > 
a 


B81 Ta<CRLF> 


NUMBER POSITON@ 


@EXPCTD RECEVD@<CRLF> 


BDDATA@ 

RMER1 
RMOF 
RMLA@ 
RMSN@ 


““BIT"~~ ADRESS 


STATUS HEADER FAILING@<CRLF> 


DATA@ 
XPCTD RECEVD RGSTR@<CRLF> 

BDADRS 

RMDS 


STATUS FAILING DA 


S$ GDDATA 


@EXPCTD RECEVDa 

@BU. 

@ RACS 

ene cee SNGPRT DULPRT@ 
ae 

@STATUS STATUS INDEX@ 
@GDADA 

@RMCS2 

a 

@EXPCTD” RETEVS 

@RMER1 

a 

aEXPCTD RECEVD 


XPCTD RECEVD 


@<CRLF> RMLA RMLA 8 RMOF @ 
RMCS2 
1 
RMDC 
RMMR2 


MNO NMMM ROARK WRNMT COOCCOOSO 
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MESSAGE STRINGS 

d 101338 aa 1142 000000 EDI: - WORD SGDDAT SBDDAT,0 

$i 1524 00117 £90006 000000 £0111: .WORD He TMP1,0 

5 101 1364 00117 1200 €D114: .WORD RMDTI,STMP1,$TMP2 

g 101508 OO Tie0 opie Ht ater e “WORD  S$GDDAT,SBDDAT,STMPO,0 

8 101552 001134 001140 001136 €D336: .WORD $GDADR,SGDDAT,SBDADR,$BDDAT,0 

10 1015 114 114 1174 €D337: .WORD $GDDAT,SBDDAT,STMPO,STMP1, 

i 191896 1140 oored ooraaa esas: WORD Sooo SBDDAT RMOFOLO . 

13 101606 001 1 1350 $TSD1: .WORD RMCS11,RMCS21,RMDSI,RMER1I ,.RMERZI .RMASI,O 
1 101624 1346 13 poiaas STSD2: -WORD RUC | RMBAL .RADAL ,RAOF1 ,RADCI .RMECTI 

16 101644 001344 a 1370 STSD3: WORD RMDAI,RMDC1,RMOFI.RMLAI.O 

3 101656 1363 801 76 tea STSD4: .WORD RMMR1I,RMMROI,RMDTI RMSNI 0 


$! 
$) 
$ 
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A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
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£110: 

Flll: .BYT ° 

Fig: BYTE i 
F339; ‘BYT 20, 8.0 
TS 


F: BYTE 0.0,0,0,0,0,0 


en 


AE 
A 
Al 
Al 
Be 
AS 
A) 
AS 
A! 
Ay 
Al 
A) 
Al 
AJ 
Al 
A 
A 
AJ 
AJ 
al 
4 
al 
Al 
Al 
Al 
A 
A, 
A 
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AO_RM80 
MESSAGE STRINGS 
1 
§ 101716 
191718 
3 10272 
$ 103726 000000 
8 1037 
9 1047 177777 
i 
\¢ 104734 000000 
13 104740 
\ 105740 177777 
16 
17 105742 000000 
18 105746 
4 106036 177777 
$3 101716 
$3 101716 
24 101716 200 
25 101717 200 
26 bates 114 
27 101 055 
28 101754 124 
102006 124 
102026 is 
1 102050 124 
102076 ist 
3 102141 124 
102160 ist 
5 102205 124 
+ 102251 124 
102305 124 
102356 124 
9 10, rh 124 
40 10246 124 
i iises 
ri} 10 230 124 
44 10 1h) 124 
45 10 124 
74] 102773 124 
47 103035 124 
48 10 124 
49 1031 124 
50 1031 124 
51 103176 124 
§ 10366! 124 
103271 2 
S403 11 
55 103 055 
3$ 103 ise 
57 10337 055 


SRRA— 
WwN=uU 
Soooooooco— 
ed ed ed ed td = IGP 


SSERESSSESERSE 


SSE 


SSS SERRRRERRERRESRESREREE 
S=Ss5 
WMI —© 


ww 
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;STORAGE FOR GENERAL DATA TRANSFERRS 





BUFFER: 
BUFONE: .BLKW 58. 
BUFTWO: .BLKW 
> STORAGE FOR ACTURES BAD SECTOR FILE (DEC144) 
MFGFIL: - WORD H DER ford DS 
236. 1256. WORDS OF DAT 
“BORD 1 SP OMINATOR IF pile IS FULL 
sSTORAGE FOR USERS BAD SECTOR FIL (DEC144) 
USRFIL: .WORD HEADER 
“BLKW 256. +256. WORDS OF DAT 
“WORD <1 1 SP RMINATOR IF ple IS FULL 
*STORAGE FOR SKIP SECTOR FILE 
SSFIL: .WOR 22 HEADER WORDS 
“BLKW 28. +2 CYLINDERS OF SKIP SECTOR ENTRIES 
“WORD = : TERMINATOR 
.=BUFFER 
HELP: 
ASCII <CRLE> 
“ASCII = <CRL 
“ASCII tier OF TESTS@<CRLE> 
“ASCII a ~a<CR 
“ASCII a1 CONTROLLER ACCESS TEST@<CRLF> 
“ASCII at FORMAT ZEROS sac RLF> 
“ASCII aT ZERO FILL TEST@<CRLF> 
“ASCII at FORMAT CHECK ZEROS ry CRL 
“ASCII. aT5 FORMAT CHECK ZEROS w/ bee ERROR@<CRLF> 
“ASCII a6 FORMAT ONES@<CRLF> 
“ASCII a7 FORMAT CHECK ONES@<CRL 
"ASCII @710 FORMAT CHECK ONES W/ tte ERRORS@<CRLF> 
“ASCII a711 FORMAT MULTIPLE SECTORS@<CRLF> 
“ASCII. aT READ HEADER & DATA W/ HEAD SWITCHINGA<CRLF> 
“ASCII. a1 READ HEADER & DATA W/ MID TRANSFER SEEK@<CRLF> 
"ASCII @714 FORMAT W/ IMPLIED SEEK@<CRLF> 
"ASCII. a@715 FORMAT EACH SECTOR ADDRESS@<CRLF> 
“ASCII. atl FORMAT EACH TRACK ADDRESS@<CRLF> 
“ASCII. aT READ HEADER & DATA IN LAST SECTOR@<CRLF> 
"ASCII @720 READ HEADER & DATA W/ ERRORA<C 
"ASCII aT21 READ INVALID SECTOR ADDRESS@<CRLF> 
“ASCII ree READ INVALID TRACK ADDRESS@<CRL 
“ASCII aT READ INVALID CYLINDER ADDRESS@<CRLF> 
“ASCII aT24 FORMAT A AT OFFSETA@<CR LF> 
“ASCII @125 IVC FORMAT TEST@<CRL F> 
“ASCII a126 FORMAT ERROR TESTa< ERE 
<ASCII aT FORMAT HCE, FIRST NEADER WORD@<CRLF> 
“ASCII @130 FORMAT SECOND HEADER WORD@<CRLF> 
"ASCII @731 FORMAT fe évLINDERS@<CRLF> 
"ASCII <CRLF> 
ASCII @OPERATIONAL SWITCH SETTINGS@<CRLE> 
SASCII aSWITCH USE@<CRLF> 
“ASCII @------ - ---a<CRLF> 








SEQ 0269 


L 
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ERROR MESSAGE STRINGS 


GB GHSSSSSASSASS OOOOOOOOD OOF BO ®OOOOOOOOOOOOOOOOOOO®O 


A 
“u 
a J 
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— ow 
4 Ww 
~w A e 
v A 
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2a3a ead 
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ea aoa." 
VCe> wu 
Sy case 
S&S 255-a 
ene weaeMmuAAaAd 
Swe Kaew juuuAAAA 
vv yTY) Omens GE 2d ad 23s, te ts te, 
SSr4-SSSRVVVSS55 
@@ @eevvvv 
— Oo OO CUT eee 
_ S9328 - =~ Osun 
<zO2v2w 22222222 
=z" 8" © J Jee ee ee 


MATIN OO OR. OMNTMVE O 
cere 
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te ag ag Peg Ong Oemey ag Pg ng omy Pong Pome Omg ng PS 
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q<q<q<aqeeeeeececdcaccce 
seeeeeses eee ee eee @ 


ere eK -— -COCOCooOoooOoo 


SSESEESSSSSSS55 


fea lolololofololoelolololojojojo-i~) 
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Pee heereae 
OOOO ooooooooeo 


eT el ed cee el ce oe el ee el el el el 
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END 
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SYMBOL TABLE 


ABASE = 176700 ATNMSK= 000377 BUFONE 10171 EBL = 620000 EH344 101037 
ACDW1 = 000000 ATNTBL 08 004 BUF TWO \02r¢ ECH = 8 0100 EH353 =: 101175 
ACDW2 = AUNIT = 000000 cc = 00400 ECI = 004000 EMS1 72108 
ACKSTS 0464 AUSWR = 999090 CH = 90200 EcRC = 001 90 EMS10 072436 
ACPUOP= 000000 AVECT1= 120254 CHGADR 001 EDT1 071724 EMS100 074656 
ADDWO = 900000 AVECT2= 000000 CHRCNT 96112 EDT110 Or re EMS101 074704 
ADDW1 = Alg = 000400 CKSWR = 104410 EDT111 071744 EMS102 074732 
ADDW10= 000000 Al = 001000 001388 EDT114 071746 EMS10 974761 
ADDW11= 000000 - BACK = 000001 CLKVCT 001524 EDT 071734 —EMS104 074770 
ADDW12= 000000 BADSCT 032406 = 900040 EDT 33 071750 EMS105 075017 
ADDW13= 000000 BADTMO 005344 CLRSTS 045572 EDT $ 071760 EMS106 075046 
ADDW14= 000000 BAI = 000010 007332 EDT337 071770 EMS11 072500 
ADDW15= BB00 = 000001 035106 EDT344 072000 EMS110 075065 
ADDW2 = 000000 BB01 = 000002 CMPERR 043550 EDT353 072012 EMS111 075114 
ADDW3 = 000000 BB02 = 000004 CNSLO1 064161 ED1 101512 EMS112 075125 
= 000000 BB03 = 000010 CNSLO 4171 ED110 101520 EMS113 075211 
ADDWS = 000000 BB04 = 000020 CNSLO3 064233 ED111 + 101524 EMS114 075241 
000000 BB0S = 000040 CNSLO4 064242 ED114 10153 EMS115 075265 
ADDW7 = 000000 BB0G = 000100 CNSLO7 064276 ED225 10154 EMS116 075270 
= 000000 . BB07 = 000200 CNSLOB 064440 ED336 =. 10155 EMS117 075320 
= 000000 BB08 = 000400 CNSLO9 06444 ED337 101564 EMS1 072511 
ADEVCT= 000000 09 = 001000 CNTCLR 045454 ED353 101576 EMS120 075342 
= 000000 0 = 000001 COMMA 063545 EECC = 000020 EMS121 075342 
ADR = 000001 BITOO = 000001 CONT = 000100 EFT1 072014 EMS 1¢ 075405 
AENV. = 000000 BITO1 = 000002 CPSAVE 060300 EFT110 072032 EMS123 075442 
AENVM = 000000 BITO2 = 000004 R= 000015 EFT111 072034 EMS124 075505 
AFATAL= 000000 BITO3 = 000010 CRLF = 000200 EFT114 072036 EMS1¢9 075537 
ALL 063534 BIT04 = 000020 CTLFG 001326 EFT2 072024 EMS126 07560 
= 000000 BITOS = 000040 CYLMSK= 001777 BFTe25 072040 127 07564 
AMADR2= 000000 BIT06 = 000100 DBCK = 100000 EFT336 072050 1 072552 
= 000000 BITO7 = 000200 DBEN = 040000 EFT337 072060 EMS130 075704 
AMADR4= 000000 BITO8 = 000400 L = 002000 EFT344 072070 EMS131 075742 
AMAMS1= 000000 BITO9 = 001000 DCK = 190000 EFT353 0721 EMS13¢ 076002 
AMAMS2= 000000 BIT1 = 000002 DDISP = 177570 EF110 101670 EMS1 76026 
AMAMS3= 000000 BIT10 = 002000 DEBL = 020000 £F111 += 101671 EMS134 076051 
= 000000 BIT11 = 004000 DEVSEL 043762 EF114 101673 EMS135 076113 
= 000000 BITI2 = 010000 DISPLA 001156 EF 336 101676 EMS1 0761 C 
AMSGLG= 000000 BIT13 = 020000 DISPRE 000174 EF337 101702 EMS1 07621 C 
GTY= 000000 BIT14 = 040000 DLT = 100000 EHT? 671600 EMS14 07256 D 
AMTYP1= 000000 B1T15 = 100000 DMD = 000001 EHT110 0716 BMS 140 76250 D 
AMTYP2= 000000 BIT? = 000004 DPE = 000010 EHT111 0716 EMS141 076271 D 
AMTYP3= 000000 BIT3 = 000010 DPEHI = 040 EHT114 0716 EMS14¢ 076 17 D 
AMTYP4= 000000 BIT4 = 000020 DPELO = 3000 EHT 7161 EMS143 076334 0 
= 601000 BITS = PR = 490 EHT223 071636 EMS144 076 $ 0 
APASS = BITS = 1 DRIVES 6 EHT256 07165 EMS145 07637. D 
APE = 100000 BIT? = 0002 RQ 0 EHT § 7166 EMS146 76421 0 
APRIOR= 000000 BIT8 = 00 DRVCLR= 1 EHT at EMS147 076440 0 
APTCSU= 000040 BIT9 = 001000 DRVSTS 05101 EHT344 07170 EMS15 072574 0 
APTENV= 000001 BLNKS1 701 DRY = 99 EHT353 07172 EMS150 076455 0 
APTSIZ= 000200 BLNKS@ 064700 DSWR 17 EH1 10044 EMS151 076474 0 
APT 100 NKS3 0646 DTASTS 05161 EH110 1 $ BNS13¢ 76520 
AkKGS = BLNKS4 676 DTE = 0100 EH111 1004 EMS153 076544 0 
ASNDA 1520 BOTADR igh DTO = 0100 ? ENING 10051 ens 138 765 0 
ASNDC 1516 BOTFLG 061126 DULPRT= 340 EH g 10054 EMS155 07660. C 
AA eee 100000 BEE = 100000 Bve 009 § ctgse 1b Emei2$ Go eee 
= = = 
ATESTN= 000000 BUFFER 130000 EARLY 9 5 EH $ § $3 EMS16 eres 
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SYMBOL T 
EMS160 076655 EMS33 07 EMT114 714 EMT177 06750 70352 
EMS161 07667 EMS 7 95 EMT115 066716 EMT Siete 70364 
EMS 16¢ O76r¢ EMS35 073301 ENTII6 66726 MT 9 63976 20406 
EMS163 0767. EMS 7 9 EMT11 7 $ EMT200 0676 70414 
S164 0767 EMS 7 EMT1 6552 EMT201 06761 70426 
165 07702 EMS4 Or eeae EMT120 746 EMT Oe 763 70444 
077043 EMS46O 0 O07 9 EMT121 066756 EMT 6764 704 
077070 EMS41 07 EMT1 § 6766 EMT 06 7654 70476 
072646 EMS42 073462 EMT1 776 EMT205 06767 5666 
07711 EMS43 073511 EMT124 067006 EMT 06 0770. 0514 
077144 EMS44 07 240 EMT125 067016 EMT207 06771 070530 
077177 EMS45 07361 , EMT1 § 967006 EMT21 663606 070546 
077217 EMS46 073656 EMT1 06704 EMT210 067 ¢8 070368 
234 EMS467 073705 EMT1 06333 EMT211 9677 2 70608 
077242 EMSS O7eers EMT130 103¢ EMT 12 774 0706¢ 
O77e79 EMSSO 073734 EMT131 0670 EMT213 0677 070632 
17 EMS51 073763 EMT13¢ 067076 EMT214 0677 70646 
072151 EMS3¢ 074011 EMT1 967119 EMT215 07001 5454 
72706 EMS53 074023 EMT134 0671 EMT 1 70024 5676 
077341 EMS54 074035 EMT135 067134 EMT21 70034 
077356 EMS5S 074057 EMT136 067146 EMT 065616 70704 
077424 EMSS6 «© 07410 EMT137 06716 EMT220 070044 70726 
077454 EMSS7 07416 T14 06554 EMT221 070054 70740 
467 EMS6 072324 EMT140 06717 EMT ¢ 70064 70752 
077515 EMS60 074211 EMT141 067200 EMT 070074 70764 
077527 EMS61 074224 EMT14¢ 67210 EMT224 070104 070776 
077554 EMS6¢ 074253 EMT143 067220 EMT225 070120 1006 
072731 MS 074271 EMT144 067230 EMT $ 70140 5706 
77601 MS64 074317 EMT145 067240 EMT 70150 71026 
077612 EMS65 074335 EMT146 067250 EMT 65626 71040 
630 S66 074403 EMT147 067260 EMT230 C0166 71052 
077653 EMS6/ 074453 EMT15 06555 EMT231 07 196 71066 
077676 072371 7150 067 7 EMT ¢ 701 711 
77714 EMS70 Ore EMT151 730 EMT 7017 111 
5 EMS71 7451 EMT 13¢ 06731 EMT ele 711 
077765 EMS72 07465 EMT153 067324 EMT235 070176 7114 
072754 EMS73. 074535 EMT154 06734 EMT 208 571 
100020 EMS74 074552 EMT155 236 EMT 7 115 
100040 75 074571 nT 196 7 EMT24 6 11g 
100110 EMS76 074577 MT15 7404 EMT24 11 ia 
100141 S77 074630 EMT16 5556 EMT24 7 71 E 
10021 EMTVEC= 3 EMT160 067416 EMT242 07021 7121 E 
10027 T1 44 EMT161 742 EMT24 7021 71 E 
10031 EMT10 551 EMT 16¢ 744 EMT24 7021 71 E 
100 7100 51 EMT1 745 EMT24 7021 71 2 E 
07277 BNT10) 534 EMT1 74 EMT 24 7 572 E 
100353 EMT1 ¢ 55 EMT165 74 EMT 7 1 Sh & 
10040, EMT1 5 EMT1 7476 EM 1274 & 
10042 5 EMT1 7504 EMT250 4 1 & 
7 16 EMT105 EMT1 55 EMT251 5 1 E 
EMT1 EMT170 0675 EMT ¢ 1 E 
7 EMT1 EMT171 rege EMT 1354 e 
731 —MT11 1 EMT17 7 EMT254 1 1374 E 
72166 EMT110 5 EMT17. 7544 EMT255 is 
P3104 EMT Ie EMTHes Ooeee6 EaToe Tt : 
Or 3188 ears aaa: EMT17 i 4 EMT26 65 71426 
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ILRGERS 
ILRG62= 
664= 


ILR 
Ice: BS 
LRG72= 7 


I bmg fame ams no Gas Bond hone) Oo hed Smt 
Sau 


o<D 
- 
nnnnnne 


O00 
WOOOL—COOO— COON NN 
SRSRENSSSSSRu— Soe 


= oe 
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MSE =1 
MSER = 
MSGDRV 8 
MSHELP 55 
MUR = 001 
MWD Ot . 1 
MWP Os 1 
MXF 6 =_-(001 

tonses $8 
NDTMSK= 11576 
NED = 010 


za 
S335 
<= 
cr 
iT] iT) 
UESSSS 
~“N=-OO: 
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PFECH oeit 
PFECH1 1 9 
PFECH2 061 
PFEC 1306 
PFECH4 1314 
PGE = 4 
P = 0010 
PHA = 000200 
PIP = $0 
PIRQ = 1 
PIRQVE= 00024 
PLFS = ey 
Ce. i 

= 
PRI = 900040 
pre = 000100 
PR = 140 
PRE = 
PRS = 00024 
soy = 000 
Pe = 0 

= 
Paar = 477776 
PUT 6004 
PU 14 § 
PUT INX 15 
PWRVEC= 4 
QUES 1 
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SYMBOL TABLE C 
RMOF = STSD4 TST1 165 SATY3 : $GTSWR 061720 E 
RMOF I 1 38 STSF Stig i$ SATY4 SS 1 $GT42P 1366 E 
RMOFO 1444 STSH1 TST14 17 $AUTOB 1 3; $HD = DC E 
RMR = Tse TST15 051 SE 1276 $HIBTS 110 ia 
RMSN = STSH IST16 1 DAD 113 S$HIOCT 06271 E 
RMSNI 1 STSH4 TST $BDDAT 114 SICNT 112 E 
RMSNO 144 SWR TST LL 121 SILLUP 06316 i 
RWC = SWREG TST20 74 IN $108 SINTAG 1151 
RMWCI 001 S = TST 4 $CDW1 1302 SITEMB 1130 E 
RMWCO 001414 S = TST $CDW2 1304 $LF 1249 E 
ROA = 190000 sw0l = TST 6 $CHARC “118 SLFLG 6344 E 
ROB = sw02 = TST : 41 ScKsuR 6163 SLPADR 1122 E 
RTC = 16 sud; = TST 5 CMTAG 1114 PERR 1124 
RE =% S = TST $ 5704 $CM3 = 000 00 $MADR1 1254 E 
R =2000007 swoS = TST 66 $CM4 = SMADR 1260 E 
SADMSK= 000 Sw06 = TST 1101 SCNTLC 06 $MADR 1 $4 E 
SAVREG= 104414 Sw07 = TST30 g7Or8 SCNTLG 06254 SMADR4 1 E 
SAl = 1 swos = TST31 0520 SCNTLU 06 33 SMAIL 1 2 E 
SAI6 = swo9 = TST4 11644 $C 1 9 SMAMS1 1 E 
SA2 = 2 wi = TST5 1 $36 SCRLF 121 SMAMS 1 i} 
SAG = =_: 000004 Swi0 = IST 13374 $DBLK 6322 SMAMS 126 
SAS = 000010 Swi1 = TST 14 $00 1 SMAMS4 1266 
sc = 100000 Swi2 = TYPBN = 1 $DDW 131 $HBADR 1 06 f 
SCOPE = 000004 Swi3 = TYPDS = 1 sobug 131 SMFLG 6344 [ 
SCTMSG 063446 Swi4 = TYPE = $DDW 1314 SMNEW 62556 | 
SCTMSK= 003700 Swi5 = TYPOC = sopus 131 SMSGAD 1 f 
SCO 6 = 000100 SW s TYPON = pw5 1 SMSGLG 126 E 
SC1 = 000200 Siw = TYPOS = spdué 1 SMSGTY 1ge { 
sc = 900400 = Ss es $DDW 1324 SMSWR 4 { 
sc = 001000 Su§ is UNTMSK= SDEVCT 1¢ SMTYP1 1 23 | 
sc4 = 002 z UNTOFF DEVM 1 SMTYP. 125 { 
SEARCH= 5000 SW7 = UNTON $DOAGN 141 SMTYP 1 63 { 
SECERR 037404 = UPE $DTBL 631 SMTYP4 $ { 
= 900006 = USE SENDAD 140 SMXCNT 6 { 
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